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SECTION  1.  GENERAL 


1.1  Purpose  of  the  Computer  Operation  Manual.  The  objective  of  this 
Computer  Operation  Manual  for  COWAND  AUTOMATED  BUDGET  SYSTEM  (CABS), 
System  ID  Code  -  AUD,  is  to  provide  computer  control  and  computer 
operator  personnel  with  a  detailed  operational  description  of  the  system 
and  its  associated  environment  with  which  they  will  be  concerned  during 
the  performance  of  their  duties. 


1.2  Project  References. 


Document  Document 

Identifier  Title 


Scty 

Source  Class  Priv 


USACSC  Manual 
18-1-B-AUD, 
Vol  II 


Comnand  Automated 
Budget  System  (CABS) 
User  Manaual 


HQ  USA  UNCLAS  No 

FORSCOM 

(AFCO-IS) 


1.3  Terms  and  Abbreviations.  There  are  no  terms,  definitions  or 
acronyms  unique  to  this  document,  that  are  subject  to  interpretation 
by  the  user  of  the  document. 


\ 
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SECTION  2.  SYSTEM  OVERVIEW 


2.1  System  Application.  CABS  was  originally  designed  as  the  vehicle 
for  processing  mechanized  budget  submissions,  through  channels,  to 
Department  of  the  Army.  Although  DA  has  not  required  a  mechanized  sub¬ 
mission  since  1975,  the  system  is  effectively  utilized  at  MACOM  to  pro¬ 
cess  installation  data  for  those  manual  schedules  of  a  major  budget 
submission  which  lend  themselves  to  mechanization.  Such  mechanization 
is  essential  to  allow  for  processing  budget  submissions  in  the 
compressed  time-frame  allotted.  The  design  of  the  system  affords  great 
flexibility  in  assembling  and  manipulating  data  which  has  led  to  its 
modification  and  use  for  reporting  other  than  a  budget  submission. 

2.2  System  Organization.  Reference  Figure  2.2-01. 

2.3  Program  Inventory.  Reference  Figure  2.3-01. 

2.4  File  Inventory.  Reference  Figure  2.4-01. 

2.5  Processing  Overview.  Reference  Figures  2.5-01,  2.5-02,  2.5-03, 
2.5-04,  2.5-05,  2.5-06,  2.5-07,  2.5-08,  2.5-09  and  2.5-10. 

2.6  Security  and  Privacy.  All  programs  used  by  and  all  files  affected 
by  the  CABS  system  are  unclassified  and  have  no  privacy  restrictions. 


ADSM  18-C1D-AUD-IBM  OM 
1  DEC  81 


f  LOGIC  CHART 
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■Hal 

12.  10 

1  AUD 

4.  Title 

SYSTEM  ORGANIZATION  (CONTINUED) 

PGM/BDGT 

DIVISION 


ffjflAUD  MASTER 
rnnr  _ 

TRANS 

^PfllAUD-CNTL 

CARD 

EDIT  MASTER 
CODE  FILE 
UPDATE 

TRANSACTIONS 


CREATE  OR 
UPOATE  THE 
MASTER  CODE 
FILE 


PRODUCE  UPDATE 
REGISTER  AND 
MASTER  LISTINGS 


PRODUCE  CARD 
OUTPUT  FOR 
FORWARDING  TO 
INSTALLATIONS 


AUD-014  CABS  MSTR 
CODE  FILE  LISTING 


AUD-013  CABS  MSTR 
CODE  FILE  LISTING 
FYDP  S' 


AUD-011  CABS  MSTR 
CODE  FILE  EDIT/ 
UPDATE  REGISTER 


&UD-015  MSTR  CODE 
FILE  TRANS 
CARDS 
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PROGRAM  INVENTORY 


PROGRAM  ID 

PROGRAM  NAME 

SECURITY 

CLASS 

PRIVACY 

IEBGENER 

Utility  Tape  To  Disk 

UNCLAS 

No 

P0AAUO 

CABS  Control  File  Edit/Update 

UNCLAS 

No 

P01AUD 

Master  Code  File  Edit/Update 

UNCLAS 

No 

P02AUD 

CABS  Budget  Data  Edit/Update 

UNCLAS 

No 

P03AUD 

CABS  Trial  Tabulation 

UNCLAS 

No 

P04AUD 

Balance  Data  Extraction 

UNCLAS 

No 

P05AUD 

Balance  Report 

UNCLAS 

No 

P06AUD 

CABS  Non -Add  Item  Generator  for  Staff 
Work  Reports 

UNCLAS 

No 

P07AUD 

CABS  Data  Extraction  for  Staff 

Work  Reports 

UNCLAS 

No 

P08AUD 

CABS  Staff  Work  Reports 

UNCLAS 

No 

P09AUD 

Consolidation 

UNCLAS 

No 

P10AUD 

CABS  AUTODIN 

UNCLAS 

No 

P11AUD 

Reformat  Obligations  for  Monthly 
Cumulative  Obligation  Reporting 

UNCLAS 

No 

P14AUD 

STANFINS  Extract 

UNCLAS 

No 

P15AUD 

Reformat  Obligation  Data  for  SOR 
Reports 

UNCLAS 

No 

P20AUD 

Status  of  Operating  Resources  Extract 

UNCLAS 

No 

P21AUD 

Status  of  Operating  Resources 

UNCLAS 

No 

P23AUD 

Deviation  Analysis  Report 

UNCLAS 

No 

P25AUD 

Workload  Analysis  Report 

UNCLAS 

No 

P27AUD 

Average  Salary  Report 

UNCLAS 

No 

U6CATU 

Utility  Spool 

UNCLAS 

No 

Figure  2.3-01 
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AH1ANC 

CINFARS  Phase  III 
Transaction  File 

TAPE 

1  REEL 

UNCLAS 

No 

No 

r 

AXWAVK 

STANFINS  APC  Master 

TAPE 

1  REEL 

UNCLAS 

No 

No 

”  *•  „ 

A0AAUO 

Control  File 

TAPE 

1  REEL 

UNCLAS 

No 

Yes 

A01AUD 

Master  Code  File 

TAPE 

1  REEL 

1 

UNCLAS 

No 

Yes 

iH 

A02AUD 

Budget  Data 
Transaction 

tape’ 

1  REEL 

UNCLAS 

No 

Yes 

jt 

;!;‘i 

(OS)  A03AUD 

Print ape 

TAPE 

1  REEL 

UNCLAS 

No 

Yes 

!;'i 

A07AUD 

Staff  Work  Report 
Intermediate  File 

TAPE 

1  REEL 

UNCLAS 

No 

Yes 

-  A 

(OS)  A08AUD 

Print ape 

TAPE 

1  REEL 

UNCLAS 

No 

Yes 

. 

♦  :J 

A11AUD 

Card  File 

CARD 

1000 

UNCLAS 

No 

Yes 

/  ;< 

Of  ^ 

A20AUD 

Status  of  Operating 
Resources  Extract 

TAPE 

1  REEL 

UNCLAS 

No 

Yes 

'  i 

* .  /! 

,  j 

B0AAUD 

Control  File 
Transaction 

CARD 

800 

UNCLAS 

No 

Yes 

-*  ,‘j 

B01AUO 

Master  Code 
Transaction  File 

TAPE 

1  REEL 

UNCLAS 

No 

Yes 

ir 

B02AUD 

Budget  Data  Station 
Level 

TAPE 

1  REEL 

UNCLAS 

No 

Yes 

■■•■I 
•  -i 

■■  -1 

B09AUD 

Budget  Data 
Consolidation 

TAPE 

1  REEL 

UNCLAS 

No 

Yes 

■fi 

B10AUD 

Budget  Data  AUTODIN 
Shipment 

TAPE 

1  REEL 

UNCLAS 

No 

No 

* i 

a 

B14AUD 

STANFINS  Data 

TAPE 

1  REEL 

UNCLAS 

No 

No 

*1 

CM2ANC 

CINFARS  Prime 
Non-Error  File 

TAPE 

1  REEL 

UNCLAS 

No 

Yes 

n 

C01AUO 

Master  Code 
Transaction 

CARD 

300 

UNCLAS 

No 

Yes 

:•  1 

j 

— 1 


Figure  2.4-01 
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FILE  INVENTORY  (CONTINUED) 


File  ID 

File  Name 

Media 

File 

Size 

Scty. 

Class. 

Priv. 

COOP 

Reg. 

(OS)  C21AUD 

Print ape 

TAPE 

1  REEL 

UNCLAS 

No 

Yes 

(OS)  C23AUD 

Print ape 

TAPE 

1  REEL 

UNCLAS 

No 

Yes 

(OS)  C25AUD 

Print ape 

TAPE 

1  REEL 

UNCLAS 

No 

Yes 

(OS)  C27AUD 

Print ape 

TAPE 

1  REEL 

UNCLAS 

No 

Yes 

EXUAVK 

STANFINS 
Subledger  30 

TAPE 

1  REEL 

UNCLAS 

No 

No 

E02AUD 

Budget  Data 
Transactions 

CARD 

2,000 

UNCLAS 

No 

No 

(DOS)  Y0AAUD 

Spool 

TAPE 

1  REEL 

UNCLAS 

No 

No 

(DOS)  Y01AUD 

Spool 

TAPE 

1  REEL 

UNCLAS 

No 

No 

(DOS)  Y02AUD 

Spool 

TAPE 

1  REEL 

UNCLAS 

No 

No 

(DOS)  Y03AUD 

Spool 

TAPE 

1  REEL 

UNCLAS 

No 

No 

(DOS)  Y08AUD 

Spool 

TAPE 

1  REEL 

UNCLAS 

No 

No 

(DOS)  Y10AUD 

Spool 

TAPE 

1  REEL 

UNCLAS 

No 

No 

(DOS)  Y11AUD 

Spool 

TAPE 

1  REEL 

UNCLAS 

No 

No 

(DOS)  Y21AUD 

Spool 

TAPE 

1  REEL 

UNCLAS 

No 

No 

Figure  2.4-01 
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CYCLE  SUMMARY 

_ For  uw  of  thlt  form,  »—  TB  18-1  It;  th«  pfoponrit  >fl«ncy  l»  CSA.  811201 

2.  CYCLE  ID  |3.  CYCLE  TITLE 

AUD0A _ CABS  CONTROL  FILE  EDIT/UPDATE  CYCLE _ 


4.  SUMMARY 

PART  I.  CYCLE  SUMMARY.  This  cycle  edits  and  updates  the  Control  File.  It 
produces  the  controls  which  are  used  in  subsequent  CABS  cycles.  Initiate  run 
via  card  reader,  using  Job  Control  Stream  Deck  AUDT0A.  AUDT0A,  CABS  Control 
File  Edit/Update,  is  the  only  run  of  this  cycle. 


Run  ID 


Run  Title 


AUDT0A 


CABS  Control  File  Edit/Update 


PART  II.  SECURITY  AND  PRIVACY. 

a.  Security.  No  component  of  this  cycle  is  classified. 

b.  Privacy.  No  component  of  this  cycle  is  subject  to  privacy 
restrictions. 

PART  III.  RESTRICTIONS.  NA 
PART  IV.  INTERFACE. 


File  ID 


File  Name 


Source/Disposition 


B0AAUD 


Control  File  Transactions 


Data  Control 


PART  V.  OTHER  INFORMATION, 
a.  Reports. 


Report  PCN  and  RCS 


Report  Title 


AUD-0A1 

AUD-0A2 

AUD-0A3 

AUD-0A4 


Control  File  Edit  Error  Listing 
Control  File  Update  Register 
Control  File  Listing 
Control  File  Transaction  Card 


b.  Control  Cards. 


Control  Card  ID 


Title 


P0AAUD-CNTI 


P0AAUD-CONTROL-CARD 


c.  General  Information.  NA 


I  NOV  78 
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|  CYCLE  SUMMARY 

|  For  UK  of  this  form,  Ms  TB  18-111;  tha  proponant  agancy  It  CSA. 

1.  DATE  i 

811201  I 

2.  CYCLE  ID 

AUD01 

3.  CYCLE  TITLE 

CABS  MASTER  CODE  FILE  EDIT/UPDATE  CYCLE 

[4.  SUMMARY 


PART  I.  CYCLE  SUMMARY.  This  cycle  edits  and  updates  the  Master  Code  File. 

It  produces  an  Edit/Update  Register  and  a  Master  Code  File  Listing  in  Report 
Serial  Number  (RSN)  sequence.  This  cycle  also  produces  (depending  on  Control 
Card  parameters)  a  Master  Code  File  Listing  in  Five  Year  Defense  Program 
(FYDP)  sequence  or  a  Master  Code  File  Listing  FYDP  within  category  of  data 
(i.e.,  dollars,  manyears,  end  strength,  workload)  sequence.  Initiate  run  via 
card  reader,  using  Job  Control  Stream  Deck  AUDT01.  AUDT01,  CABS  Master  Code 
File  Edit/Update,  is  the  only  run  of  this  cycle. 

Run  ID  Run  Title 

AUDT01  CABS  Master  Code  File  Edit/Update 

PART  II.  SECURITY  AND  PRIVACY. 

a.  Security.  No  component  of  this  cycle  is  classified. 

b.  Privacy.  No  component  of  this  cycle  is  subject  to  privacy 
restrictions. 

PART  III.  RESTRICTIONS.  NA 
PART  IV.  INTERFACE. 

File  ID  I/O  File  Name  Source/Disposition 

C01AUD  I  Master  Code  Transactions  Data  Control 

PART  V.  OTHER  INFORMATION. 

a.  Reports. 

Report  PCN  and  RCS 

AUD-011 
AUD-012 

AUD-013 

AUD-014 

AUD-015 


Report  Title 

Master  Code  File  Edit/Update  Register 
Master  Code  File  Listing  in  RSN 
Sequence 

Master  Code  File  Listing  in  FYDP 
Sequence 

Master  Code  File  Listing  in  FYDP 
within  Category  of  Data  Sequence 
Master  Code  File  Cards 


DA 


FORM 
1  NOV  78 


4742 


Figure  2.5-02 
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2.  CYCLE  ID 

AUD01 


4.  SUMMARY 


CYCLE  SUMMARY 

For  un  of  thla  form,  <m  TS  18-111;  th«  proponent  agoney  la  CSA. 


3,  CYCLE  TITLE 


1.  DATE 

811201 


CABS  MASTER  CODE  FILE  EDIT/UPDATE  CYCLE  (CONTINUED) 


b.  Control  Cards. 
Control  Card  ID 
P01AUD-CNTL 


Title 


P01AUD-Control-Card 


c.  General  Information.  NA 
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CYCLE  SUMMARY 

For  un  of  this  form,  t««  TS  18-111;  th«  proponent  agency  It  CSA. 


3.  CYCLE  TITLE 

CABS  BUDGET  DATA  EDIT/UPDATE  CYCLE 


1.  DATE 


811201 


2.  CYCLE  ID 

AUD02 


4.  SUMMARY 

PART  I.  CYCLE  SUMMARY.  This  cycle  edits  and  updates  the  CABS  budget  data. 
Initiate  run  via  card  reader,  using  Job  Control  Stream  Deck  AUDT02.  AUDT02, 
CABS  Budget  Data  Edit/Update,  is  the  only  run  of  this  cycle. 


Run  ID 


Run  Title 


AUDT02 


CABS  Budget  Data  Edit/Update 


PART  II.  SECURITY  AND  PRIVACY. 

a.  Security.  No  component  of  this  cycle  is  classified. 

b.  Privacy.  No  component  of  this  cycle  is  subject  to  privacy 
restrictions. 

PART  III.  RESTRICTIONS.  NA 
PART  IV.  INTERFACE. 


File  ID 


File  Name 


Source/Disposition 


E02AUD  I 

PART  V.  OTHER  INFORMATION. 


Budget  Data  Transactions 


Data  Control 


a.  Reports. 


Report  PCN  and  RCS 


AUD-021 

AUD-022 


Report  Title 

Edit  Error  Listing 
Update  Register 


b.  Control  Cards. 


Control  Card  ID 
P02AUD-CNTL 


Title 

P02AUD-Control-Card 


c.  General  Information.  NA 


FORM 
1  NOV  78 


Figure  2.5-03 


ADSM  18-C1D-AUD-IBM  OM 
1  DEC  81 


CYCLE  SUMMARY  OATe 

For  un  of  thk  form,  too  T8  18-111;  tho  proponont  oponcy  !•  CSA.  811201 


2.  CYCLE  IO  3.  CYCLE  TITLE 

All 003  CABS  TRIAL  TAB  AND/OR  BALANCE  REPORT  CYCLE 


4.  SUMMARY 

PART  I.  CYCLE  SUMMARY.  This  cycle  produces  either  or  both  the  Trial  Tab 
Report  and  the  Balance  Report  depending  on  Control  Card  Parameters.  It  accom¬ 
modates  station  level  or  consolidated  data  depending  on  which  input  file  is 
used.  Initiate  run  via  card  reader,  using  Job  Control  Stream  Deck  AUDT03. 
AUDT03,  CABS  Trial  Tab  and/or  Balance  Report,  is  the  only  run  of  this  cycle. 


Run  ID 


Run  Title 


AUDT03 


CABS  Trial  Tab  and/or  Balance  Report 


PART  II.  SECURITY  AND  PRIVACY. 

a.  Security.  No  component  of  this  cycle  is  classified. 

b.  Privacy.  No  component  of  this  cycle  is  subject  to  privacy 
restrictions. 

PART  III.  RESTRICTIONS.  NA 
PART  IV.  INTERFACE.  NA 
PART  V.  OTHER  INFORMATION, 
a.  Reports. 


Report  PCN  and  RCS 


Report  Title 


AUD-031 

AUD-051 


Trial  Tabulation 

Balance  Errors  and  Information 


b.  Control  Cards. 


Control  Card  ID 


Title 


P03AUD-CNTL 

P04AUD-CNTL 


P03AUD-Control-Card 
P04AUD-Control -Card 


c.  General  Information.  NA 


L4 
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CYCLE  SUMMARY 

For  uM  of  this  form,  tee  TB  18-111;  the  proponent  agency  is  CSA. 


3.  CYCLE  TITLE 

CABS  STAFF  WORKING  REPORTS  CYCLE 


1.  DATE 

811201 


2.  CYCLE  10 

AUD04 


4.  SUMMARY 

PART  I.  CYCLE  SUMMARY.  This  cycle  produces  the  Staff  Working  Reports,  uti¬ 
lizing  station  level  or  consolidated  data.  Special  Staff  Working  Reports  are 
produced  when  appropriate  control  card  values  are  used.  Initiate  run  via  card 
reader,  using  Job  Control  Stream  Deck  AUDT04.  AUDT04,  CABS  Staff  Working 
Reports,  is  the  only  run  of  this  cycle. 


Run  ID 


Run  Title 


AUDT04 


CABS  Staff  Working  Reports 


PART  II.  SECURITY  AND  PRIVACY. 

a.  Security.  No  component  of  this  cycle  is  classified. 

b.  Privacy.  No  component  of  this  cycle  is  subject  to  privacy 
restrictions. 

PART  III.  RESTRICTIONS.  NA 
PART  IV.  INTERFACE.  NA 
PART  V.  OTHER  INFORMATION, 
a.  Reports. 


Report  PCN  and  RCS 


AUD-081 
Control  Cards, 


Report  Title 
Staff  Working  Reports 


Control  Card  ID 


Title 


P06AUD-CNTL 

P08AUD-CNTL 


P06AUD-Control-Card 
P08AUD- Control -Card 


General  Information.  NA 


1  NOV  78 


Figure  2.5-05 
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CYCLE  SUMMARY  DATE 

For  um  of  thlt  form.  Me  TB  18-111;  tho  proponent  agoncy  it  CSA.  81?1  01 

2.  CYCLE  ID  1 3.  CYCLE  TITLE 

AUD05  CABS  CONSOLIDATION  CYCLE 


4.  SUMMARY 

PART  I.  CYCLE  SUMMARY.  This  cycle  consolidates  budget  data  into  Command 
Summary  Records  for  MACOM  run  or  into  station  sunmary  records  (first  two  posi¬ 
tions  of  station  code)  for  installation  run;  for  re-entry  into  the 
Edit/Update,  Trial  Tab  and/or  Balance,  and  the  Staff  Working  Reports  Cycles. 
Initiate  run  via  card  reader,  using  Job  Control  Stream  Deck  AUDT05.  AUDT05, 
CABS  Consolidation,  is  the  only  run  of  this  cycle. 


Run  ID 


Run  Title 


AUDT05 


CABS  Consolidation 


PART  II.  SECURITY  AND  PRIVACY. 

a.  Security.  No  component  of  this  cycle  is  classified. 

b.  Privacy.  No  component  of  this  cycle  is  subject  to  privacy 
restrictions. 

PART  III.  RESTRICTIONS.  NA 
PART  IV.  INTERFACE.  NA 
PART  V.  OTHER  INFORMATION. 

a.  Reports.  NA 

b.  Control  Cards. 


Control  Card  ID 


Title 


P09AUD-CNTL 


P09AUD-Contr o 1 -C  ard 


c.  General  Information.  NA 


FORM  JBjA 

1  NOV  78  4  /W 


Figure  2.5-06 
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CYCLE  SUMMARY  ’■  °ate 

For  um  of  thl«  form,  tee  TB  18-111;  th«  proponent  agency  It  CSA.  811201 


2.  CYCLE  ID  3.  CYCLE  TITLE 

AUD06  CABS  AUTODIN  CYCLE 


4.  SUMMARY 

PART  I.  CYCLE  SUMMARY.  This  cycle  selects  budget  data  at  the  MACOM  to  be 
sent  to  the  installation  when  run  at  the  MACOM  level.  It  selects  data  at  the 
installation  to  be  sent  to  the  MACOM  when  run  at  the  installation  level. 
Initiate  run  via  card  reader,  using  Job  Control  Stream  Deck  AUDT06.  AUDT06, 
CABS  AUTODIN  is  the  only  run  of  this  cycle. 


Run  ID 


Run  Title 


AUDT06 


CABS  AUTODIN 


PART  II.  SECURITY  AND  PRIVACY. 

a.  Security.  No  component  of  this  cycle  is  classified. 

b.  Privacy.  No  component  of  this  cycle  is  subject  to  privacy 
restrictions. 

PART  III.  RESTRICTIONS.  NA 
PART  IV.  INTERFACE.  NA 
PART  V.  OTHER  INFORMATION. 

a.  Reports.  NA 

b.  Control  Cards. 


Control  Card  ID 


Title 


P10AUD-CNTL01 

P10AUD-CNTL03 

P10AUD-CNTL04 

P10AUD-CNTL05 

P10AUD-CNTL06 


P10AUD-CONTROL-CARD 
P10AUD-STATION-SELECT-CARD 
P10AUD-ROUTING- I NDI CATOR-CARD 
P10AUD-RSN-SELECT-CARD 
P10AUD- ITEM- SELECT-CARD 


c.  General  Information.  NA 


FORM 
1  NOV  78 


Figure  2.5-07 
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2.  CYCLE  ID 


AUD07 


CYCLE  SUMMARY 

For  un  of  thli  form,  m  TB  tS-tlt;  th«  proponent  agency  It  CSA. 


3.  CYCLE  TITLE  RthUKMAI  UtSLlUAI 

CUMULATIVE  OBLIGATION  REPORTING 


1.  DATE 

811201 


4.  SUMMARY 


PART  I.  CYCLE  SUMMARY.  This  cycle  selects  cumulative  obligation  data  and 
reformats  it  into  CABS  budget  data  format  for  subsequent  entry  and  processing 
through  a  CABS  Budget  Cycle.  For  installation  level  runs,  the  STANFINS  data 
tape  (File  B14AUD  from  cycle  AUD14)  and/or  card  input  (PRIME  deck)  will  be 
used.  For  MACOM  runs,  data  tapes  from  the  Command  Integrated  Financial 
Accounting  and  Reporting  System  (CINFARS)  will  be  input.  Initiate  run  via 
card  reader,  using  Job  Control  Stream  Deck  AUDM07.  AUDM07,  Reformat 
Cumulative  Obligation  Data,  is  the  only  run  of  this  cycle. 


Run  ID 


Run  Title 


AUDM07 


Reformat  Obligations  for  Monthly  Cumulative 
Obligation  Reporting 


PART  II.  SECURITY  AND  PRIVACY. 

a.  Security.  No  component  of  this  cycle  is  classified. 

b.  Privacy.  No  component  of  this  cycle  is  subject  to  privacy 
restrictions. 

PART  III.  RESTRICTIONS.  NA 


PART  IV.  INTERFACE. 

File  ID  I/O 

AH1ANC  I 

A11AUD  I 

CM2ANC  I 


File  Name 

Phase  III  Transaction  File 
Card  Input 

Prime  Non-Error  File 


Source/Disposition 


Data  Control 
Data  Control 
Data  Control 


PART  V.  OTHER  INFORMATION. 


a.  Reports. 

Report  PCN  and  RCS 


AUD-111 

AUD-112 

b.  Control  Cards. 
Control  Card~ID 

P11AUD-CNTL 


Report  Title 

Record  Counts  and  Messages 
Cost  Factor  Report 


Title 

PllAUD-Control-Card 


c.  General  Information.  NA 
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CYCLE  SUMMARY  ! 

For  um  of  thlt  form.  Me  TB  18-111;  the  proponent  egency  It  CSA.  j 

1.  DATE 

811201 

LE  ID 

014 

3.  CYCLE  TITLE 

STANFINS  EXTRACT 

IMARY 


I.  CYCLE  SUMMARY.  This  cycle  selects  actual  obligation  data  from  the 
dard  Finance  System  (STANFINS)  and  reformats  it  into  CABS  SOR  data  format 
subsequent  entry  to  Cycle  AUD15  to  reformat  the  actual  CSCFA-218  data  or 
ycle  AUD07  to  reformat  cumulative  obligation  data.  Initiate  run  via  card 
er,  using  Job  Control  Stream  Deck  AUDM14.  AUDM14,  Extract  STANFINS  SOR 

,  is  the  only  run  of  this  cycle. 

Run  ID  Run  Title 

AUDM14  STANFINS  Extract 

II.  SECURITY  AND  PRIVACY. 

a.  Security.  No  component  of  this  cycle  is  classified. 

b.  Privacy.  No  component  of  this  cycle  is  subject  to  privacy  restric- 


is. 

’  III. 

RESTRICTIONS. 

NA 

‘  IV. 

INTERFACE. 

File  ID  I/O 

File  Name 

Source/Disposition 

AXWAVK 

I 

Accounting  Processing  Code 
(APC)  Master  (STANFINS) 

Data  Control 

EXUAVK 

I 

Subledger  10  Detail 
(STANFINS) 

Data  Control 

‘  V.  OTHER  INFORMATION. 


a .  Reports.  NA 

b.  Control  Cards. 

Control  Card  ID  Title 

P14AUD-CNTL  P14AUD-C0NTR0L-CARD 

c.  General  Information.  NA 


FORM 
1  NOV  78 


4742 


Figure  2.5-09 
2-19 
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CYCLE  SUMMARY 

For  uh  of  thl»  form.  Me  TB  18-111;  the  proponent  agency  It  CSA. 


CYCLE  ID  3.  CYCLE  TITLE 

JD15  REFORMAT  OBLIGATION  DATA  FOR  SOR  REPORTS 


SUMMARY 

WT  I.  CYCLE  SUMMARY.  This  cycle  selects  actual  data  from  the  Command 
itegrated  Financial  Accounting  and  Reporting  System  (CINFARS)  and  reformats 
:  into  CABS  budget  data  format  for  subsequent  entry  and  processing  through  a 
^BS  Budget  Cycle.  For  MACOM  runs,  CINFARS  tape  is  input.  For  installation 
;vel  runs,  input  will  be  STANFINS  Extract  data  (B14AUD)  and/or  card  input 
’RIME  deck).  Initiate  run  via  card  reader,  using  Job  Control  Stream  Deck 
JDM15.  AUDM15,  Reformat  Actual  CSCFA-218  Data  for  CABS  Reporting,  is  the 
i ly  run  of  this  cycle. 


Run  ID 


AUDM15 


Run  Title 

Reformat  Obligation  Data  for  SOR  Reports 


\RT  II.  SECURITY  AND  PRIVACY. 

a.  Security.  No  component  of  this  cycle  is  classified. 

b.  Privacy.  No  component  of  this  cycle  is  subject  to  privacy 
istrictions. 

\RT  III.  RESTRICTIONS.  NA 


\RT  IV.  INTERFACE. 
File  ID  1/C 
A15AUD  I 

CM2ANC  I 


\RT  V.  OTHER  INFORMATION. 


a.  Reports.  NA 


File  Name 
Card  Input 

PRIME  Non-Error  File 


Control  Cards. 
Control  Card  ID 


P15AUD-CNTL 


Title 


P15AUD-Control  Card 


c.  General  Information.  NA. 


Source/Disposition 
Data  Control 


Data  Control 


A  4742 


Figure  2.5-10 
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CYCLE  SUMMARY 

For  um  of  th<*  form,  m  TB  IB-111;  th*  proponent  agency  It  CSA. 


3.  CYCLE  TITLE 

CABS  STATUS  OF  OPERATING  RESOURCES 


4.  SUMMARY 


PART  I.  CYCLE  SUMMARY.  This  cycle  produces  the  Status  of  Operating  Resources 
Report.  Initiate  run  via  card  reader,  using  Job  Control  Stream  Deck  AUDM20. 
AUDM20  Status  of  Operating  Resources  is  the  only  Run  of  this  cycle. 


Run  ID 
AUDM20 


Run  Title 

Status  of  Operating  Resources 


PART  II.  SECURITY  AND  PRIVACY. 

a.  Security.  No  component  of  this  cycle  is  classified. 

b.  Privacy.  No  component  of  this  cycle  is  subject  to  privacy 
restrictions. 

PART  III.  RESTRICTIONS.  NA 
PAr  i V.  INTERFACE.  NA 
PART  V.  OTHER  INFORMATION. 


a.  Reports. 


Report  PCN  and  RCS 


AUD-211 


AUD-231 

AUD-251 


AUD-271 


b .  Control  Cards. 
Control  Card  ID 
P20AUD-CNTL 


Report  Title 

Status  of  Operating  Resources 
Deviation  Analysis  Report 
Workload  Analysis  Report 
Average  Salary  Report 


Title 

P20AUD-CONTROL-CARD 


c.  General  Information.  NA 


1  NOV  78 


Figure  2.5-11 
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SECTION  3.  DESCRIPTION  OF  RUNS 

3.1  Run  Inventory.  The  CABS  system  has  eleven  cycles  each  with  one  run. 
See  Figure  3.1-0l. 

3.2  Phasing.  There  are  no  phasing  requirements  in  the  CABS  system. 
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RUN  INVENTORY 

AUDT0A  Run  Description.  This  run  edits  and  updates  the  Control  File. 

It  produces  the  controls  which  are  used  in  subsequent  CABS  cycles. 

AUDT01  Run  Description.  This  run  edits  and  updates  the  Master  Code 
File.  It  produces  an  Edit/Update  Register  and  a  Master  Code  File 
Listing  in  Report  Serial  Number  (RSN)  sequence.  This  run  also  produces 
(depending  on  Control  Card  parameters)  a  Master  Code  File  Listing  in 
Five  Year  Defense  Program  (FYDP)  sequence  or  a  Master  Code  File  Listing 
FYDP  within  category  of  data  (i.e.,  dollars,  manyears,  end  strength, 
workload)  sequence. 

AUDT02  Run  Description.  This  run  edits  and  updates  the  CABS  budget 
data. 

AUDT03  Run  Description.  This  run  produces  either  or  both  the  Trial  Tab 
Report  and  the  Balance  Report  depending  on  Control  Card  Parameters.  It 
accommodates  station  level  or  consolidated  data  depending  on  which  input 
file  is  used. 

AUDT04  Run  Description.  This  run  produces  the  Staff  Working  Reports, 
utilizing  station  level  or  consolidated  data.  Special  Staff  Working 
Reports  are  produced  when  appropriate  control  card  values  are  used. 

AUDT05  Run  Description.  This  run  consolidates  budget  data  into  Command 
Summary  Records  for  MACOM  run  or  into  station  summary  records  (first  two 
positions  of  station  code)  for  installation  run;  for  re-entry  into  the 
Edit/Update,  Trial  Tab  and/or  Balance,  and  the  Staff  Working  Reports 
Cycles. 

AUDT06  Run  Description.  This  run  selects  budget  data  at  the  MACOM  to  be 
sent  to  the  installation  when  run  at  the  MACOM  level.  It  selects  data 
at  the  installation  to  be  sent  to  the  MACOM  when  run  at  the  installation 
level . 

AUDM07  Run  Description.  This  run  selects  cumulative  obligation  data 
from  the  Command  Integrated  Financial  Accounting  and  Reporting  System 
(CINFARS)  and  reformats  It  into  CABS  budget  data  format  for  subsequent 
entry  and  processing  through  a  CABS  Budget  Cycle.  (PRIME  card  deck 
and/or  STANFINS  data  from  AUDM14  maybe  input  in  lieu  of  CINFARS  tape.) 

AUDM14  Run  Description.  This  run  extracts  data  from  the  STANFINS 
Sub  ledger  30  File  and  produces  an  output  tape  file  in  CINFARS  PRIME 
format  which  can  then  be  used  as  input  to  run  AUDM15  or  AUDM07. 


Figure  3.1-01 
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RUN  INVENTORY  (Continued) 


AUDM15  Run  Description.  This  run  selects  actual  data  from  the  Command 
Integrated  financial  Accounting  and  Reporting  System  (CINFARS)  and 
reformats  it  into  CABS  budget  data  format  for  subsequent  entry  and  pro 
cessing  through  a  CABS  Budget  Cycle.  (For  installation  level  runs* 
PRIME  card  deck  or  STANFINS  data  from  AU0M14  may  be  input  in  lieu  of 
CINFARS  tape.) 

AUDM20  Run  Description.  This  run  produces  the  Status  of  Operating 
Resources  Report,  the  Deviation  Analysis  Report,  the  Workload  Analysis 
Report,  and  the  Average  Salary  Report. 


0? 


Figure  3.1-01 
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RUN  INVENTORY  (Continued) 


Run 

Program 

AUD0A/AUDT0A 

P0AAUD 

AUD01/AUDT01 

P01AUD 

AUD02/AUDT02 

IEB6ENER 

P02AUD 

AUD03/AUDT03 

IEB6ENER 

P03AUD 

P04AUD 

P05AUD 

U6CATU 

AUO04/AUDT04 

IEB6ENER 

P06AUD 

P07AUD 

P08AUD 

U6CATU 

AUD05/AUDT05 

P09AUD 

AUD06/AUDT06 

P10AUD 

AUD07/AUDM07 

P11AUD 

AUD14/AUDM14 

P14AUD 

AUD15/AUDM15 

P15AUD 

AUD20/AUDM20 

P20AUD 

P21AUD 

P23AUD 

P25AUD 

P27AUD 

Figure  3.1-01 
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3.3 

Run  Description  AUDT0A.  Reference  Figure  3.3-01 

INDEX  FOR  FIGURE  3.3-01 

wr 

NAME 

PAGE  NO. 

3.3.1 

Control  Inputs 

* 

3. 3. 1.1 

Control  Cards 

3-6 

i 

3.3. 1.2 

Control  Input  Statements 

NA 

- 

3.3. 1.2.1 

Job  Control  Statements  (PROC) 

3-7  thru  3-11 

3.3. 1.2. 2 

Job  Control  Statements  (RETRIEVAL) 

3-12 

t  - 

3.3.2 

Management  Information 

r- 

3.3. 2.1 

Run  Setup-Console  Operating 
Information 

3-13 

3. 3. 2. 2 

Run  Messages  and  Responses 

3-14 

■r 

3. 3.2. 3 

Logic  Chart 

3-15 

!  0* 

3.3.3 

Input-Output  Files 

See  DA  Form  4744 
for  the  I/O  File 
Information 

• 

3.3.4 

Output  Reports 

3-16 

•  « 

■l 

3.3.5 

Reproduced  Output  Reports 

3. 3. 5.1 

Reproduced  Output  Reports 

NA 

! 

3. 3. 5. 2 

PCM  Processing  Instructions 

NA 

• 

3.3.6 

Restart/Recovery  Procedures 

::  • 

r 

k- 

3. 3.6.1 

Recovery  Instructions 

3-17 

•  ' 
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CONTROL  CARD  PREPARATION 

For  uao  of  thlt  form,  too  TB18-111,  tho  proponent  agency  It  CSA. 


3.  RUN  TITLE 

CABS  CONTROL  FILE  EDIT/UPDATE 


5,  CONTROL  CARO  TITLE 


1.  DATE 


811201 


2.  RUN  IO 

AUDT0A 


A  cor  TROL  CARD  ID 

P0AAUD-CNTL 


CL  CONTROL  CARO  PURPOSE  AND  REMARKS 


P0AAUD- CONTROL-CARD 


To  provide  program  parameter  options. 


CNTL-ID  1  11 


TYPE-  13  19 
RUN 


21  28 

CARD-  29 
RQMT 


30  80 


CONTROL  CARO  INSTRUCTIONS 


PREPARATION  INSTRUCTIONS 


Constant  "P0AAUD-CNTL" 

Blank 

"INITIAL"  to  create  new  control  file. 
"UPDATE"  to  update  existing  file. 

Blank 

Literal  "CARDOUT*" 


"N"  if  no  card  output  desired. 
"Y"  to  produce  cards  for  records 
on  new  control  file. 

Blank 


mmm 


Functional 


Functional 

user 


NOTE:  Only  col irnns  1-11,  13,  and  29  are  critical;  remainder  is  for 

visual  reference.  ! 


FORM 
t  NOV  78 


Figure  3.3-01 
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JOB  CONTROL  STATEMENTS  (PROC)  -  OS 


//AUDT0AS1  PROC  CYC=C08 
//* 

j f *  **************-************************************************* 

//*  *  THIS  PROC  PERFORMS  CABS  CONTROL  FILE  EDIT/UPDATE  * 

//* 

//P0AAUD01  EXEC  PGM=P0AAUD 

//IA0AAUD  DO  DSN=AUD.CABS.&CYC. .A0AAUD(0) ,DISP«0LD,UNIT*(TAPE9, .DEFER) 
//IA01AUD  DD  DSN=AUD.CABS.&CYC..A01AUD(0),DISP=OLD,UNIT=TAPE9 
//OA0AAUD  DD  DSN=AUD.CABS.&CYC. .A0AAUD(+1),DISP=( NEW, CATLG, DELETE), 

//  UNIT =TAPE9, LABEL  =RETPDa365 , 

//  DCB»(RECFM«BFS,BLKSIZE=1200,LRECL«120) 

//OC0AAUD  DD  SYSOUT=A,DCB=BLKSIZE*133 
//OE0AAUD  DD  SYSOUT=B,DCB=BLKSIZE=80 
//WF0AAUD  DD  UNIT*SYSDA,SPACE=(CYL,5) , 

//  DCB= ( RECFM=BFS , BLKS I ZE*1200, LRECL*120) 

//WG0AAUD  DD  UNIT=SYSDA,SPACE=(CYL,5) , 

//  DCB=(RECFM=BFS,BLKSIZE=1200,LRECL=120) 

//WH0AAUD  DD  UNIT=SYSDA,SPACE=(CYL,5) , 

//  DCB=(RECFM=BFS,BLKSIZE*1200,LRECL*120) 

//SORTLIB  DD  DSN=SYSl.SORTLIB,DISP=SHR 
//SORTWK01  DD  UNIT *SYSDA , SPACE3 ( CYL , 5 , , CONTIG ) 

//SORTWK02  DD  UNIT *SYSDA , SPACE* ( CYL , 5 , , CONT I G ) 

//SORTWK03  DD  UNI T=SYSDA,SPACE=( CYL, 5,, CONTIG) 

//SYSOUT  DD  SYSOUT=A 
// SYSUDUMP  DD  SYSOUT=A 
//IB0AAUD  DD  DUMMY, DCB*BLKSIZEs80 
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JOB  CONTROL  STATEMENT  CARD  DECK  LISTING  -  DOS 


//  JOB  AUDT0A  C1D0R  CABS  CTL  FILE  CYC=AOC 

*  JOB  STEP  P0AAUD01 

//  ASSGN  SYS001,X'DK2’  SORTWK 

//  ASSGN  SYS014,X'CR0'  CARD  INPUT  INCL  CNTL  &  TRANS 

//  TLBL  IA01AUD , ' AOC . A01AUD 1  MASTER  CODE  FILE  AOC 

//  TLBL  IA0AAUD, 'AOC.A0AAUD'  INPUT  CONTROL  FILE  AOC 

//  TLBL  OA0AAUD,' AOC. A0AAUD ',,,,,, 03  OUTPUT  CONTROL  FILE  AOC 

//  DLBL  OC0AAUD, 1 C0AAUD,D' ,0,SD  PRINTFILE 

//  EXTENT  SYS021,WRK1&P, 1,0,20,1, B=1 

//  DLBL  OE0AAUD, 'E0AAUD,D' ,0,SD  PUNCHFILE 

//  EXTENT  SYS021,WRK1&P,1,0,20,1,B=1 

//  DLBL  WF0AAUD, 'F0AAUD,D' ,0,SD 

//  EXTENT  SYS021,WRK1&P,1 ,0,20,1, B=1 

//  DLBL  WG0AAUD, >G0AAUD,DI ,0,SD 

//  EXTENT  SYS021,WRKl&P,l,0,20,100,Bal 

//  DLBL  WH0AAUD , ' H0AAUD 1 , 0 , SO 

//  EXTENT  SYS021,WRK1&P,1 ,0,20, 100, B=1 

//  DLBL  SORTWK1 , ' J0AAUD ' ,0,SD 

//  EXTENT  SYS001 , WRK2&P ,1,0, 20, 100,BS1 

//  TLBL  OY0AAUD,' Y0AAUO'  SPOOL  OUTPUT 

//  EXEC  TDYNASN 

OPEN  OY0AAUD.SYS013, OUTPUT 

/* 

//  EXEC  P0AAUD 

P0AAUD-CNTL  (User  Control  Card  Options) 

/*  INSERT  ANY  CARD  TRANSACTIONS  BEFORE  THIS  CARD 

//  EXEC  TDYNASN 

CLOSE  OY0AAUD.SYS01 3, OUTPUT 

/* 

CLOSE  SYS013 
/* 

//  DLBL  WH0AAUD, ' H0AAUD ' 

//  EXTENT  SYS021.WRK1&P, 1,0, 20,100, B=1 

//  DLBL  OC0AAUD, 'C0AAUD' ,0,SD  PRINTFILE 

//  EXTENT  SYS021.WRK1&P, 1,0,20,1,8=1 

//  DLBL  OE0AAUD, 'E0AAUD' ,0,SD  PUNCHFILE 

//  EXTENT  SYS021,WRK1&P,1 ,0,20,1, B=1 

//  EXEC  ADASD 

/& 
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JOB  CONTROL  STATEMENT  CARD  DECK  LISTING  -  DOS  (CONTINUED) 


//  JOB  AUDT0A  C1D0R  CABS  CTL  FILE  CYC=COB 

*  JOB  STEP  P0AAUD01 
//  ASSGN  SYS001,X'DK2'  SORTWK 

//  ASSGN  SYS014,X'CR0'  CARD  INPUT  INCL  CNTL  &  TRANS 

//  TLBL  IA01AUD, 1  COB .A01AUD '  MASTER  CODE  FILE  COB 

//  TLBL  IA0AAUD, 'COB.A0AAUD*  INPUT  CONTROL  FILE  COB 

//  TLBL  OA0AAUD, 'COB.A0AAUD* , ,,,,,03  OUTPUT  CONTROL  FILE  COB 
//  DLBL  OC0AAUD, lC0AAUD,Dl ,0,SD  PRINTFILE 

//  EXTENT  SYS021.WRK1&P, 1,0,20,1, B=1 
//  DLBL  OE0AAUD, 'E0AAUD,D' ,0,SD  PUNCHFILE 

//  EXTENT  SYS021,WRKlliP,l,0,20,l,B=l 
//  DLBL  WF0AAUD, 'F0AAUD,D' ,0,SD 
//  EXTENT  SYS021.WRK14P, 1,0,20,1, B=1 
//  DLBL  UG0AAUD,IG0AAUD,DI,0,SO 
//  EXTENT  SYS021tWRKl&P,l ,0,20,100, BS1 
//  DLBL  WH0AAUD, 1 H0AAUD1 ,0,SD 
//  EXTENT  SYS021,WRKl&P,l,0,20,100,Bsl 
//  DLBL  SORTWKl, 1 J0AAUD* ,0,SD 
//  EXTENT  SYS001,WRK2&P,l,0,20,100,Bsl 

//  TLBL  OY0AAUD , ' Y0AAUD 1  SPOOL  OUTPUT 

//  EXEC  TDYNASN 
OPEN  OY0AAUD.SYS013, OUTPUT 
/* 

//  EXEC  P0AAUD 

P0AAUD-CNTL  (User  Control  Card  Options) 

/*  INSERT  ANY  CARD  TRANSACTIONS  BEFORE  THIS  CARD 

//  EXEC  TDYNASN 

CLOSE  OY0AAUD.SYS013, OUTPUT 

/* 

CLOSE  SYS013 
/* 

//  DLBL  WH0AAUD, 'H0AAUD' 

//  EXTENT  SYS021.WRK1&P, 1,0, 20,100, B=1 
//  DLBL  OC0AAUD , ' C0AAUD 1 , 0 , SD  PRINTFILE 

//  EXTENT  SYS021.WRK1&P, 1,0,20,1,6*1 
//  DLBL  OE0AAUD, ' E0AAUD1 ,0,SD  PUNCHFILE 

//  EXTENT  SYS021,WRK1&P,1,0,20,1,B=1 
//  EXEC  AOASD 
/& 


Figure  3.3-01 
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JOB  CONTROL  STATEMENT  CARD  DECK  LISTING  -  DOS  (CONTINUED) 


//  JOB  AUDT0A  C1D0R  CABS  CTL  FILE  CYC=OBL 

*  JOB  STEP  P0AAUD01 

//  ASSGN  SYS001,X'DK2'  SORTWK 

//  ASSGN  SYS014,X'CR0’  CARD  INPUT  INCL  CNTL  &  TRANS 

//  TLBL  IA01AUD, 'OBL.A01AUD'  MASTER  CODE  FILE  OBL 

//  TLBL  I A0AAUD , 1 OBL . A0AAUD '  INPUT  CONTROL  FILE  OBL 

//  TLBL  OA0AAUD, 'OBL.A0AAUD' , , , ,, ,03  OUTPUT  CONTROL  FILE  OBL 
//  DLBL  OC0AAUD, 'C0AAUD,D' ,0,SD  PRINTFILE 

//  EXTENT  SYS021,WRK1&P,1,0,20,1,B=1 
//  DLBL  OE0AAUD, 1 E0AAUD,D' ,0,SD  PUNCHFILE 

//  EXTENT  SYS021 .WRKl&P , 1 ,0, 20, 1 , B=1 
//  DLBL  WF0AAUD, 'F0AAUD,D' ,0,SD 
//  EXTENT  SYS021,WRK1&P,1,0,20,1,B=1 
//  DLBL  WG0AAUD, 'G0AAUD,D' ,0,SD 
//  EXTENT  SYS021,WRK1&P,1 ,0,20, 100, B=1 
//  DLBL  WH0AAUD, ' H0AAUD1 ,0,SD 
//  EXTENT  SYS021,WRK1&P,1,0,20,100,B=1 
//  DLBL  SORTWK1, 1 J0AAUD1 ,0,SD 
//  EXTENT  SYS001.WRK2&P, 1,0, 20,100, B=1 
//  TLBL  OY0AAUD, 1 Y0AAUD'  SPOOL  OUTPUT 

//  EXEC  TDYNASN 
OPEN  OY0AAUD.SYS013, OUTPUT 
/* 

//  EXEC  P0AAUD 

P0AAUD-CNTL  (User  Control  Card  Options) 

/*  INSERT  ANY  CARD  TRANSACTIONS  BEFORE  THIS  CARD 

//  EXEC  TDYNASN 

CLOSE  OY0AAUD.SYS013, OUTPUT 

/* 

CLOSE  SYS013 
/* 

II  DLBL  WH0AAUD, 'H0AAUD' 

//  EXTENT  SYS021,WRK1&P,1,0,20,100,B=1 
//  DLBL  OC0AAUD, 'C0AAUD' ,0,SD  PRINTFILE 

//  EXTENT  SYS021,WRK1&P, 1,0, 20,1, B=1 
//  DLBL  OE0AAUD, 'E0AAUD1 ,0,SD  PUNCHFILE 

//  EXTENT  SYS021,WRK1&P,1,0,20,1,B=1 
//  EXEC  ADASD 
/& 


Figure  3.3-01 
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JOB  CONTROL  STATEMENT  CARD  DECK  LISTING  -  DOS  (CONTINUED) 


//  JOB  AUDT0A  C1D0R  CABS  CTL  FILE  CYC=SOR 

*  JOB  STEP  P0AAUD01 

//  ASSGN  SYS001,X'DK2 1  SORTWK 

//  ASSGN  SYS014,X'CR0'  CARD  INPUT  INCL  CNTL  &  TRANS 

//  TLBL  IA01AUD, 'SOR.A01AUD'  MASTER  CODE  FILE  SOR 

//  TLBL  IA0AAUD, 'SOR.A0AAUD'  INPUT  CONTROL  FILE  SOR 

//  TLBL  OA0AAUD, 'SOR.A0AAUD' , , , , , ,03  OUTPUT  CONTROL  FILE  SOR 
//  DLBL  OC0AAUD, 'C0AAUD,D' ,0,SD  PRINTFILE 

//  EXTENT  SYS021,WRK1&P,1,0,20,1,B=1 
//  DLBL  OE0AAUD,'E0AAUD,D\0,SD  PUNCHFILE 

//  EXTENT  SYS021.WRK1&P, 1,0, 20,1, B=1 
//  DLBL  WF0AAUD, 'F0AAUD,D' ,0,SD 
//  EXTENT  SYS021,WRK1&P,1,0,20,1,B=1 
//  DLBL  WG0AAUD , 1 G0AAUD , D 1 ,0 , SD 
//  EXTENT  SYS021.WRK1&P, 1,0,20,100,6=1 
//  DLBL  WH0AAUD, 'H0AAUD1 ,0,SD 
//  EXTENT  SYS021,WRK1&P,1,0,20,100,B=1 
//  DLBL  SORTVIK1, 1 J0AAUD'  ,0,SD 
//  EXTENT  SYS001,WRK2&P,1,0,20,100,B=1 
//  TLBL  OY0AAUD, 1 Y0AAUD'  SPOOL  OUTPUT 

//  EXEC  TDYNASN 
OPEN  OY0AAUD.SYS013, OUTPUT 
/* 

//  EXEC  P0AAUD 

P0AAUD-CNTL  (User  Control  Card  Options) 

/*  INSERT  ANY  CARD  TRANSACTIONS  BEFORE  THIS  CARD 

//  EXEC  TDYNASN 
CLOSE  OY0AAUD,SYS013, OUTPUT 
/* 

CLOSE  SYS013 
/* 

II  DLBL  WH0AAUD, 'H0AAUD1 
//  EXTENT  SYS021,WRK1&P,1,0,20,100,B=1 
//  DLBL  OC0AAUD, 'C0AAUD' ,0,SD  PRINTFILE 

//  EXTENT  SYS021.WRK1&P, 1,0, 20,1, B-l 
//  DLBL  OE0AAUD, ' E0AAUD' ,0,SD  PUNCHFILE 

//  EXTENT  SYS021,WRK1&P,1,0,20,1,B=1 
//  EXEC  ADASD 
/& 
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JOB  CONTROL  STATEMENT  (RETRIEVAL)  -  OS 


:  AUDT0A 

E:  CABS  CONTROL  FILE  EDIT/UPDATE 

A  JOB  (Accounting  Information) 

A01  EXEC  AUDT0AS1,CYC=XXX 
D01. IB0AAUD  DD  * 

CNTL  (User  Control  Card  Options) 

INSERT  CONTROL  FILE  TRANSACTION  CARDS  BEFORE  THIS  CARD 


On  EXEC  CARD,  substitute  for  XXX  the  appropriate  value  to 
indicate  type  of  run: 

COB=  Command  Operating  Budget 

AOC 

OBL 

SOR 


* 


Figure  3.3-01 
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RUN  MESSAGES  AND  RESPONSES 

For  un  of  thli  form,  MO  TB  IB-111;  the  proponent  agancy  la  CSA. 

1.  DATE 

811201 

3.  RUN  IO 

AUDT0A 

3.  RUN  TITLE 

CABS  CONTROL  FILE  EDIT/UPDATE 

MESSAGE  DISPLAYED 


ACTION  REQUIRED 


CONSOLE  MESSAGES: 


SAME  AS  SYSOUT/SYSLST 
SYSOUT/SYSLST  MESSAGES: 


P0AAUD  11  H  *  JOB  TERMINATED 
*  CTL  CARD  ERROR 


*  MCF  EXCEEDS  TABLE 


♦INVALID  SORT 


First  card  input  must  be  a  valid 
P0AAUD-CNTL  card.  Correct  or  insert 
control  card  and  restart  the  run. 

Master  Code  File  contains  more  than 
500  unique  "RSN  and  command  code". 
Problem  must  be  resolved  by  functional 
user  and/or  functional  proponent. 

Restart  the  run.  If  problem  recurs, 
notify  system  analyst. 
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r  v* 


LOGIC  CHART 

For  UM  of  thl»  form,  —  TB  16-111;  th»  propon»nt  «9»ney  l«  CSA. 


1.  DATE 

811201 


AUDTOA _ 

( )ATA  CONTROL^ 


CABS  CONTROL  FILE  EDIT/UPDATE 
VlIBRARV 


'  1ST  CARD 

!  i  __ 

IS 

( B0AAUD 

CONTROL 

CONTROL  FILE 

t  CARD 

TRANSACTIONS 

(OS  ONLY) 


-IBRARY 


^A0AAUD  > 
CONTROL 
v  FILE  j 


/J$1AUF 
MASTER 
k  CODE 
VflLEv 


P0AAUD 

CABS  CONTROL 
FILE  EDIT/ 
UPDATE 


(DOS  ONLY) 
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2.  RUN  ID 


RECOVERY  INSTRUCTIONS 

For  use  of  this  form,  see  TB  18-1 11;  the  proponent  agency  Is  CSA. 


a  RUN  TITLE 


FORM 
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3.4  Run  Description  AUDT01.  Reference  Figure  3.4-01 

INDEX  FOR  FIGURE  3.4-01 


NAME  PAGE  NO. 


3.4.1 

Control  Inputs 

3.4. 1.1 

Control  Cards 

3-20  thru  3-21 

3. 4. 1.2 

Control  Input  Statements 

NA 

3.4. 1.2.1 

Job  Control  Statements  (PROC) 

3-22  thru  3-26 

3. 4. 1.2. 2 

Job  Control  Statements  (RETRIEVAL) 

3-27 

3.4.2 

Management  Information 

3. 4. 2.1 

Run  Setup-Console  Operating 

Information 

3-28 

3.4. 2. 2 

Run  Messages  and  Responses 

3-29 

3.4. 2. 3 

Logic  Chart 

3-30 

3.4.3 

Input-Output  Files 

See  DA  Form  4744 
for  the  I/O  File 
Information 

3.4.4 

Output  Reports 

3.4.5 

Reproduced  Output  Reports 

3.4.5. 1 

Reproduced  Output  Reports 

3-31 

3. 4. 5. 2 

PCM  Processing  Instructions 

NA 

3.4.6 

Re st art /Recovery  Procedures 

3.4.6. 1 

Recovery  Instructions 

3-32 

3-19 
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1  CONTROL  CARO  PREPARATION 

|  For  un  of  thlt  form,  mo  TB18-111;  tho  proponent  agency  It  CSA. 

1.  OATE  | 

811201  | 

2.  RUN  IO 

AUDT01 

3.  RUN  TITLE 

CABS  MASTER  CODE  FILE  EDIT/UPDATE 

4.  COf  TROL  CARO  IO 

P01AUD-CNTL 

S.  CONTROL  CARO  TITLE 

P01AUD- CONTROL - CAR  D 

S.  CONTROL  CARO  PURPOSE  AND  REMARKS 

To  provide  program  parameter  options. 


7.  USER  INFORMATION,  IF  REQUIRED 


r*  . 

CONTROL  CARO  INSTRUCTIONS 

- 1 

mm 

.  ■" 

PREPARATION  INSTRUCTIONS 

C. 

CNTL-ID 

1  11 

Constant  "P01AUD-CNTL" 

12 

Blank 

TYPE- 

13  19 

"INITIAL"  to  create  new  MCF. 

Functional 

RUN 

"UPDATE  "  to  update  an  existing  MCF. 

user 

"FYDP  "  to  produce  MCF  listing  in 

FYDP  sequence. 

"CAT  "  to  produce  MCF  listing  in 

sequence  by  FYDP  within  category. 

20 

Blank 

CMD-1 

21  23 

1st  cormand  code;  must  be  numeric. 

Functional 

user 

24 

Blank 

CMD-2 

25  27 

2d  command  code;  numeric  or  blank. 

Functional 

user 

28 

Blank 

CMD-3 

29  31 

3d  command  code;  numeric  or  blank 

Functional 

user 

32 

Blank 

_ 

FORM 
1  NOV  78 


4743 
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!  W 


CONTROL  CARD  PREPARATION  ( CONTINUATION ) 

for  um  of  thll  form,  i—  TB  18-111;  the  proponent  agency  l>  CSA. 


2.  RUN  ID 

AUDT01 


1.  DATE 

811201 


3.  CONTROL  CARO  10  (See  Block  4,  DA  Form  4743) 

P01AUD-CNTL 


CONTROL  CARO  INSTRUCTIONS  <See  Block  8,  DA  Form  4743) 


FIELD 

_ a. 


CMD-4 


CMD-5 


TRANS¬ 

TAPE 


CTL- 

FILE-IN 


CARD- 

RQMT 


POSITION 
_ b. 


33  35 

36 

37  39 

40 

41  47 

48 

49 

50  55 

56 

57 

58  65 
66 

67  80 


NOTE:  Cel  umns  1-1 
ard  blanks) 
program. 


PREPARATION  INSTRUCTIONS 
_ c. _ 


4th  comnand  code;  numeric  or  blank 
Blank 

5th  command  code;  numeric  or  blank 
Blank 

Literal  "TRANTP=" 

"Y"  if  there  are  transactions  on  tape  to  be 
input. 

"N"  if  all  input  transactions  are  in  card  form. 
Blank 

Literal  "CTLTP*" 

"Y"  if  control  file  (AOAAUD)  is  to  be  input; 
else  "N". 

Blank 

Literal  "CARDOUT=" 

"Y"  if  punched  output  of  updated  MCF  is 
desired;  else  "N". 

Blank 


,  13,  21-23,  48,  56,  and  66  are  critical;  others 
are  for  visual  readability  only  and  are  not  edited 


DA  /n°o"vmts  4743-1 


RESPONSIBLE 

AGENCY 

d. 


Functional 

user 

Functional 

user 


Functional 

user 


Functional 

user 


Functional 

user 


literals 

by 
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JOB  CONTROL  STATEMENTS  (PROC)  -  OS 


//AUDT01S1  PROC  CYC=COB 
//* 

I /*  *************************************************************** 

//*  *  THIS  PROC  PERFORMS  THE  CABS  MASTER  CODE  FILE  EDIT/UPDATE  * 

I  jk  kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
//* 

//P01AUD01  EXEC  PGM=P01AUD 

//IA0AAUD  DO  OSN=AUO. CABS. &CYC. .A0AAUO(0) ,DISP=0LD,UNIT=(TAPE9, , DEFER) 
//IA01AUD  DO  DSN=AUD. CABS. &CYC. .A01AUD(0) ,DISP=OLD,UNIT=(TAPE9, , DEFER) 
//OA01AUD  DD  DS N=AUD . CABS . &CYC . . A01AUD ( +1 ) , DISP= ( NEW, CATLG, DELETE ) , 

//  UNIT=(TAPE9) , LABEL =RETPD=365, 

//  DCB=(RECFM=BFS,BLKSIZE=800,LRECL=80) 

//IB01AUD  DD  DUMMY, DISP=(OLD, KEEP), UNIT=(TAPE9, , DEFER), 

//  DCB=(RECFM=BFS,BLKSIZE=800,LRECL=80) 

//OE01AUD  DD  SYSOUT=A,DCB=BLKSIZE=133 
//OF01AUD  DD  SYSOUT=B , DCB=BLKSIZE=80 
//WG01AUD  DD  UNIT=SYSDA, SPACE= ( CYL , ( 10,5 ) ) , 

//  DCB= ( RECFM=BFS , BLKS I ZE=800,LRECL*80) 

//WH01AUD  DD  UNIT=SYSDA , SPACE= ( CYL ,(10,5)), 

//  DCB=(RECFM=BFS,BLKSIZE=800,LRECL=80) 

//SORTLIB  DD  DSN=SYS1.S0RTLIB,DISP=SHR 
//SORTWK01  DD  UNIT=SYSDA,SPACE=(CYL,5,,CONTIG) 

//SORTWK02  DD  UNIT=SYSDA,SPACE=(CYL,5, .CONTIG) 

//SORTWK03  DD  UNIT=SYSDA,SPACE=(CYL, 5, .CONTIG) 

//SYSOUT  DD  SYSOUT=A 
//SYSUDUMP  DD  SYSOUT=A 
//IC01AUD  DD  DUMMY, DCB=BLKSIZE=80 
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JOB  CONTROL  STATEMENT  CARD  DECK  LISTING  -  DOS 


//  JOB  AUDT01  C1D0R  CABS  MCF  CYC=AOC 

*  JOB  STEP  P01AUD01 

//  ASSGN  SYS001,X'DK2'  SORTWK 

//  ASSGN  SYS014.XW  CARD  INPUT  INCL  CNTL  &  TRANS 

//  TLBL  IA0AAUD , 1 AOC . A0AAUD 1  CABS  CONTROL  FILE  AOC 

//  TLBL  IA01AUD, 'AOC.A01AUD'  CABS  MCF,  OLD  AOC 

//  TLBL  I B01AUD , 1 AOC . B01AUD '  TAPE  TRANS  INPUT  AOC 

//  TLBL  OA01AUD , ' AOC . A01AUD 1  CABS  MCF,  NEW  AOC 

//  DLBL  OE01AUD, 'E01AUD,D' ,0,SD  PRINTFILE,  NO  WRITE  ON  DOS 

//  EXTENT  SYS021,WRK1&P,1,0,20,1,B=1 

//  DLBL  OF01AUD, ,F01AUD,D‘ ,0,SD  PUNCHFILE,  NO  WRITE  ON  DOS 

//  EXTENT  SYS021,WRK1&P,1,0,20,1,B=1 
//  DLBL  WG01AUD, 'G01AUD,D' ,0,SD 
//  EXTENT  SYS021,WRK1&P,1,0,20,100,B31 
//  DLBL  WH01AUD, 'H01AUD,D' ,0,SD 
//  EXTENT  SYS022,WRKl&P,l,0,20,100,Bsl 
//  DLBL  SORTWK1 , ' J01AUD ' , 0 , SD 
//  EXTENT  SYS001,WRK2iP,l ,0,20, 100, B®1 
//  TLBL  OY01AUD , 1 Y01AUO '  SPOOL  OUTPUT 

//  EXEC  TDYNASN 
OPEN  OY01AUD.SYS013, OUTPUT 
/* 

//  EXEC  P01AUD 

P01AUD-CNTL  (User  Control  Card  Options) 

/*  INSERT  ANY  CARD  TRANSACTIONS  BEFORE  THIS  CARD 

//  EXEC  TDYNASN 

CLOSE  OY01AUD.SYS013, OUTPUT 

/* 

CLOSE  SYS013 
/* 

II  DLBL  OE01AUD , ' E01AUD , D 1 , 0 , SD  PRINTFILE,  NO  WRITE  ON  DOS 

//  EXTENT  SYS021,WRK1&P,1,0,20,1,B=1 

//  DLBL  OF01AUD, 'F01AUD,D' ,0,SD  PUNCHFILE,  NO  WRITE  ON  DOS 

//  EXTENT  SYS021 , WRK1&P ,1,0,20,1,B=1 
//  EXEC  ADASD 
/* 

/& 
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JOB  CONTROL  STATEMENT  CARD  DECK  LISTING  -  DOS  (CONTINUED) 


//  JOB  AUDT01  C1D0R  CABS  MCF 

*  JOB  STEP  P01AUD01 
//  ASSGN  SYS001,X'DK2' 

//  ASSGN  SYS014,XW 
//  TLBL  IA0AAUD , 1  COB . A0AAUD 1 
//  TLBL  IA01 AUD , 1  COB . A01AUD ' 

//  TLBL  IB01AUD, 'COB.B01AUD' 

//  TLBL  OA01AUD, 'COB.A01AUD' 

//  DLBL  OE01AUD, 1 E01AUD.D' ,0,SD 
//  EXTENT  SYS021,WRK1&P, 1,0, 20,1, B=1 
//  DLBL  OF01AUD, 'F01AUD,D' ,0,SD 
//  EXTENT  SYS021.WRK1&P, 1,0, 20,1, B=1 
//  DLBL  WG01AUD, 'G01AUD,D‘ ,0,SD 
//  EXTENT  SYS021,WRK1&P,1 ,0,20, 100, B=1 
//  DLBL  WH01AUD, 1 H01AUD,D' ,0,SD 
//  EXTENT  SYS022,WRK1&P, 1,0, 20,100, B=1 
//  DLBL  SORTWK1, 1 J01AUD' ,0,SD 
//  EXTENT  SYS001,WRK2&P,1,0,20,100,B=1 
//  TLBL  OY01AUD, 1 Y01AUD'  SPOOL  OUTPUT 

//  EXEC  TDYNASN 
OPEN  OY01AUD.SYS013, OUTPUT 


CYCaCOB 


SORTWK 

CARD  INPUT  INCL  CNTL  &  TRANS 
CABS  CONTROL  FILE  COB 
CABS  MCF,  OLD  COB 
TAPE  TRANS  INPUT  COB 
CABS  MCF,  NEW  COB 
PRINTFILE,  NO  WRITE  ON  DOS 


PUNCHFILE,  NO  WRITE  ON  DOS 


/* 

//  EXEC  P01AUD 

P01AUD-CNTL  (User  Control  Card  Options) 

/*  INSERT  ANY  CARD  TRANSACTIONS  BEFORE  THIS  CARD 

//  EXEC  TDYNASN 

CLOSE  OY01AUD.SYS013, OUTPUT 


/* 

CLOSE  SYS013 


/* 

//  DLBL  OE01AUD, ' E01AUD,D' ,0,SD 
//  EXTENT  SYS021,WRK1&P,1,0,20,1 ,B=1 
//  DLBL  OF01AUD, ,F01AUO,D' ,0,SD 
//  EXTENT  SYS021 ,WRK1&P ,1 ,0,20,1 ,B=1 
//  EXEC  ADASD 
/* 

/& 


PRINTFILE,  NO  WRITE  ON  DOS 
PUNCHFILE,  NO  WRITE  ON  DOS 


•  1 
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JOB  CONTROL  STATEMENT  CARO  DECK  LISTING  -  DOS  (CONTINUED) 


//  JOB  AUDT01  C1D0R  CABS  MCF  CYC=OBL 

*  JOB  STEP  P01AUD01 

//  ASSGN  SYS001,X'DK2 1  SORTWK 

//  ASSGN  SYS014,X'CR0'  CARD  INPUT  INCL  CNTL  &  TRANS 

//  TLBL  IA0AAUD, 'OBL.A0AAUD'  CABS  CONTROL  FILE  OBL 

//  TLBL  IA01AUD, 'OBL.A01AUD1  CABS  MCF,  OLD  OBL 

/  TLBL  I B01 AUD , ' OBL . B01AUD '  TAPE  TRANS  INPUT  OBL 

//  TLBL  OA01AUD , 1 OBL . A01AUD '  CABS  MCF,  NEW  OBL 

//  DLBL  OE01AUD, 1 E01AUD,D‘ ,0,SD  PRINTFILE,  NO  WRITE  ON  DOS 

//  EXTENT  SYS021,WRK1&P, 1,0, 20, 1,8=1 

//  DLBL  OF01AUD, 'F01AUD,D' ,0,SD  PUNCHFILE,  NO  WRITE  ON  DOS 

//  EXTENT  SYS021 ,WRK1&P,1,0,20,1,B=1 
//  DLBL  WG01AUD, 'G01AUD,D' ,0,SD 
//  EXTENT  SYS021,WRK1&P,1 ,0,20, 100, B=1 
//  DLBL  WH01AUD , 1 H01AUD , D 1 , 0 , SD 
//  EXTENT  SYS022.WRK1&P ,1 ,0,20,100,BS1 
//  DLBL  SORTWKl , ' J01AUD 1 ,0,SD 
//  EXTENT  SYS001,WRK2&P, 1,0, 20,100,8*1 
//  TLBL  OY01AUD, 'Y01AUD'  SPOOL  OUTPUT 

//  EXEC  TDYNASN 
OPEN  OY01AUD.SYS013, OUTPUT 
/* 

//  EXEC  P01AUD 

P01AUD-CNTL  (User  Control  Card  Options) 

/*  INSERT  ANY  CARD  TRANSACTIONS  BEFORE  THIS  CARD 

//  EXEC  TDYNASN 

CLOSE  OY01AUD.SYS013, OUTPUT 

/* 

CLOSE  SYS013 
/* 

//  DLBL  OE01AUD, 'E01AUD,D' ,0,SD  PRINTFILE,  NO  WRITE  ON  DOS 

//  EXTENT  SYS021 , WRK1&P , 1 , 0 , 20 , 1 , B=1 

//  DLBL  OF01AUD , ' F01AUO , D 1 , 0 , SD  PUNCHFILE,  NO  WRITE  ON  DOS 

//  EXTENT  SYS021,WRK1&P,1 ,0,20,1 ,B=1 
//  EXEC  ADASD 
/* 

/& 
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CONTROL  STATEMENT  CARD  DECK  LISTING  -  DOS  (CONTINUED) 


m  C1D0R  CABS  MCF  CYC*SOR 

»  P01AUD01 

rS001,X'DK2'  SORTWK 

rS014,X'CR0'  CARD  INPUT  INCL  CNTL  &  TRANS 

5AAUD, 'SOR.A0AAUD'  CABS  CONTROL  FILE  SOR 

J1AUD , ' SOR . A01AUD 1  CABS  MCF,  OLD  SOR 

J1AUD, 'SOR.B01AUD'  TAPE  TRANS  INPUT  SOR 

91AUD, 'SOR.A01AUD'  CABS  MCF,  NEW  SOR 

J1AUD, 1 E01AUD,D' ,0,SD  PRINTFILE,  NO  WRITE  ON  DOS 

5YS021,WRK1&P, 1,0, 20,1, B=1 

91AUD, 'F01AUD,D' ,0,SD  PUNCHFILE,  NO  WRITE  ON  DOS 

5YS021,WRK1&P,1,0,20,1,B=1 

51AUD, 'G01AUD,D' ,0,SD 

5YS021,WRK1&P,1,0,20,100,B=1 

51AUD, ' H01AUD,D' ,0,SD 

5YS022.WRK1&P, 1,0, 20,100, B=1 

ITWK1, ' J01AUD' ,0,SD 

5YS001,WRK2&P,1 ,0,20, 100, B=1 

91AUD, 1 Y01AUD'  SPOOL  OUTPUT 

fNASN 

JD,SYS013, OUTPUT 
LAUD 

.  (User  Control  Card  Options) 

INSERT  ANY  CARD  TRANSACTIONS  BEFORE  THIS  CARD 
rNASN 

UJD.SYS013, OUTPUT 
L3 

51AUD, 1 E01AUD.D' ,0,SD  PRINTFILE,  NO  WRITE  ON  DOS 

5YS021 ,WRK1&P,1 ,0,20,1, B=1 

J1AUD, 'F01AUD,D' ,0,SD  PUNCHFILE,  NO  WRITE  ON  DOS 

>YS021,WRK1&P, 1,0, 20,1, B=1 

LSD 
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JOB  CONTROL  STATEMENTS  (RETRIEVAL)  -  OS 


RUN  ID:  AUDT01 

RUN  NAME:  CABS  MASTER  CODE  FILE  EDIT/UPDATE 

("INITIAL"  or  "UPDATE"  RUN) 

//AUDT01  JOB  (accounting  information) 

//AUDT0101  EXEC  AUDT01S1,CYC=XXX  (see  note  1) 

//P01AUD01 . IC01AUD  DD  * 

P01AUD-CNTL  (user  control  card  options) 

/*  INSERT  MCF  TRANSACTION  CARDS  BEFORE  THIS  CARD 

// 

NOTE:  If  MCF  transaction  input  on  tape  (optional), 
insert  the  following  card  after  "EXEC"  card: 
//P01AUD01 . IB01AUD  DD  DSN=XXXXXX,VOL=SER*NNNNNN 


(LIST  RUNS  ONLY) 

//AUDT01  JOB  (accounting  information) 

//AUDT0101  EXEC  AUDT01S1,CYC=XXX  (see  note  1) 

/ /P01AUD01 . OA01AUD  DD  DUMMY 
//P01AUD01. IC01AUD  DD  * 

P01AUD-CNTL  X  (C0_  13  EHUAL  TO  "F"  OR  "C"  FOR  FYDP  OR  "CAT"  LISTING) 

/*  IF  'CAT'  LISTING,  MCF  CATEGORY  CARDS  GO  BEFORE  THIS  CARD 

// 


NOTE  1  :  On  EXEC  CARD  substitute  for  XXX  the  appropriate  value  to 
indicate  type  of  run: 

COB,  AOC,  OBL,  SOR 
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1/  OPTIONAL,  depending  on  parameters  in  Control  Card. 
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n 

r  RUN  MESSAGES  AND  RESPONSES 

|  For  uh  of  thh  form,  m  TB  1$-1 11;  tho  proponent  agtncy  !•  CSA. 

1.  DATE  I 

811201  1 

12.  RUN  IO 

1  AUDT01 

3.  RUN  TITLE  1 

CABS  MASTER  CODE  FILE  EDIT/UPDATE  1 

4.  MESSAGE  DISPLAYED 

S.  ACTION  REQUIRED  | 

m 

L 

:  . 

CONSOLE  MESSAGES: 

SAME  AS  SYSOUT/SYSLST 

SYSOUT/SYSLST  MESSAGES: 

P01AUD  11  H  * 

*  CTL  CARD  ERROR 

First  card  input  must  be  a  valid 
P01AUD-CNTL  card.  Correct  or 
insert  control  card  and  restart 
the  run. 

• 

k 

*  EXCESS  RSN  CARDS 

For  "CAT"  listing,  program  allows 
maximum  of  60  input  cards.  Notify 
functional  user. 

■ 

v:  '>* ' 

*  INVALID  SORT 

Restart  the  run.  If  problem  recurs, 
notify  system  analyst. 

a 

• 

• 

«.  REMARKS 

"1 

• 

BT,:s"v“.  4745 

Figure  3.4-01 
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LOGIC  CHART 

For  UH  of  this  torm,  mTB  18-111,  th«  propon«nt  «g»ncy  l»  CSA. 


ITLE 


811201 


AUDT01 


CABS  MASTER  CODE  FILE  EDIT/UPDATE 


DATA  CONTROL/ 


FORM 
1  NOV  78 


Figure  3.4-01 
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For  uh  of 

RECOVERY  INSTRUCTIONS 

thl*  form,  tee  TB  18-111;  the  proponent  agency  It  CSA. 

1 . .1 

2.  RUN  ID 

AUDT01 

3.  RUN  TITLE 

CABS  MASTER  CODE  FILE  EDIT/UPDATE 

4.  ID  CODE 

5.  RECOVERY  INSTRUCTIONS 

P01AUD01 

Restart  the  run 

&  remarks 

DA 


4751 


FORM 
1  NOV  78 


Figure  3.4-01 
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K'  . 

3.5 

Run  Description  AUDT02.  Reference  Figure  3.5-01 

INDEX  FOR  FIGURE  3.5-01 

h 

: 

NAME 

PAGE  NO. 

r.: 

3.5.1 

Control  Inputs 

• 

M  ■ 

3. 5. 1.1 

Control  Cards 

3-34 

3. 5. 1.2 

Control  Input  Statements 

NA 

3. 5. 1.2.1 

Job  Control  Statements  (PROC) 

3-35  thru  3-39 

3. 5. 1.2. 2 

Job  Control  Statements  (RETRIEVAL) 

3-40 

3.5.2 

Management  Information 

i 

3-41  thru  3-42 

3. 5. 2.1 

Run  Setup-Console  Operating 
Information 

3. 5. 2. 2 

Run  Messages  and  Responses 

3-43  thru  3-44 

3. 5. 2. 3 

Logic  Chart 

3-45  thru  3-47 

►  .  ■, 

3.5.3 

Input-Output  Files 

• 

See  DA  Form  4744  ' 
for  the  I/O  File  •! 
Information 

s 

3.5.4 

3.5.5 

Output  Reports 

Reproduced  Output  Reports 

3-48 

i 

3. 5.5.1 

Reproduced  Output  Reports 

NA  i 

3. 5. 5. 2 

PCM  Processing  Instructions 

NA  3 

3.5.6 

Restart/Recovery  Procedures 

3-49  “ 

« 

*  ”, 
r 

• 

•  • 

3. 5.6.1 

Recovery  Instructions 

'•r 

-  -- 
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CONTROL  CARD  PREPARATION 

1.  DATE 

- 1 

For  ut«  of  thit  form,  im  TB  18-111,  th«  proponent  agoncy  it  CSA. 

1  811201  | 

2.  RUN  ID 

3.  RUN  TITLE 

AUDT02 

CABS  BUDGET  DATA  EDIT/UPDATE 

4.  cor  TflOL  CARO  ID 

5.  CONTROL  CARD  TITLE 

P02AUD-CNTL 

P02AUD-CONTROL-CARD 

&  CONTROL  CARO  PURPOSE  ANO  REMARKS 

To  provide  program  parameter  options. 

7.  USER  INFORMATION,  IF  REQUIREO 

CONTROL  CARO  INSTRUCTIONS 

1 

PREPARATION  INSTRUCTIONS 

c. 

CNTL-ID 

1  11 

Constant  "P02AUD-CNTL" 

12 

Blank 

UPDATE- 

13  19 

"UPDATE"  To  update  existing  file 

Functional 

CNTL 

20 

"INITIAL"  To  create  new  budget  file 

Blank 

user 

MEDIA 

21 

"C"  card  input  transactions 

Functional 

"T"  tape  input,  transactions 
"  "  for  both  tape  and  card  transaction 

user 

22 

Blank 

DATA- 

23 

"1"  consolidated  data 

Functional 

TYPE 

24 

Blank  if  detailed  data 

Blank 

user 

COMMENT- 

BYPASS 

25 

"X"  =  BYPASS  COMMENTS 

Functional 

26 

Blank 

LEVEL 

27  29 

|  "STA"  for  installation  run;  "MAC"  for  MACOM  1 

Functional 

30 

Blank 

DELETE- 

31 

"D"  to  remove  all  "deleted"  records  (Transac- 

Functional 

OPTION 

tion  Code  '1')  and  blank  the  transaction  code 
on  other  records  from  the  input  Budget  Data 

user 

File. 

32-80 

Blank 

DA  , nov78  4743 


Figure  3.5-01 


3-34 


JOB  CONTROL  STATEMENT  (PROC)  -  OS 


//AUDT02S1  PROC  CYC=COB 
//* 

J  j-k  ************************************************************* 

//*  *  THIS  PROC  PERFORMS  THE  CABS  BUDGET  DATA  EDIT/UPDATE  * 
//*  ************************************************************* 
//* 

//IEBGEN02  EXEC  PGM=IEBGENER 
//SYSPRINT  DD  SYSOUT=A 

//SYSUT1  DD  DSNsAUD.CABS.&CYC..A01AUD(0),DISP=OLD 
//SYSUT2  DD  DSNsAUD.CABS.A01AUD,UNITsSYSDA,SPACE=5(CYL,(10,5) ), 

//  DISP=(NEW,PASS) ,DCB-(RECFM=BFS,BLKSIZE=800,LRECL=80) 

//SYSIN  DD  DUMMY 
//P02AUD03  EXEC  PGM=P02AUD 
//IC02AUD  DD  DUMMY, DCB=BLKSIZE=80 

//IA0AAUD  DD  DSN=AUD.CABS.&CYC. .A0AAUD(0) ,UNIT=TAPE9,DISP=0LD 
//IA01AUD  DD  DSN=AUD . CABS . A01AUD , DISP= ( OLD , DELETE ) 

//IA02AUD  DD  DUMMY, UNIT*(TAPE9, , DEFER), DISP=(OLD, KEEP), 

//  DCB=(RECFM*BFS,BLKSIZE=800,LRECL=80) 

//IB02AUD  DD  DSN=AUD.CABS.&CYC. .B02AUD(+0) , UNIT=(TAPE9,, DEFER) , 

//  DISP=(OLO,KEEP) 

//OB02AUD  DD  DSN=AUD . CABS . &CYC . . B02AUD ( +1 ) , UNIT= ( TAPE9 ,, DEFER ) , 

//  DI SP=( NEW, CATLG, DELETE), 

//  DCB=(RECFM=BFS,BLKSIZE=800,LRECL=80) , 

//  LABEL =RETPD=365 

//OF02AUD  DD  SYS0UT=A,0CB=BLKSIZE=133 

//WG02AUD  DD  UNIT=SYSDA,SPACE=(CYL,40) , 

//  DCB=(RECFM=BFS,BLKSIZE=800,LRECL=80) 

//WH02AUD  DD  UNIT=SYSDA,SPACE=(CYL,40) , 

//  DCB=(RECFM=BFS,BLKSIZE=800,LRECL=80) 

//SORTWK01  DD  UNIT=SYSDA,SPACE=(CYL, 20, .CONTIG) 

//SORTWK02  DD  UNIT=SYSDA,SPACE=(CYL, 20, .CONTIG) 

//SORTWK03  DD  UNIT=SYSDA,SPACE=(CYL,20, , CONTIG) 

//SORTLIB  DD  DSN=SYSl.SORTLIB,DISP=SHR 
//SYSOUT  DD  SYSOUT=A 
//SYSUDUMP  DD  SYSOUT*A 
//IE02AUD  DD  DUMMY, DCB=BLKSIZE=80 
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JOB  CONTROL  STATEMENT  CARD  DECK  LISTING  -  DOS 

//  JOB  AUDT02  C1DOR  CABS  EDIT/UPDATE  CYC=AOC 

*  JOB  STEP  P02AUD01 
//  TLBL  UIN, 'AOC.A01AUD' 

//  DLBL  UOUT, 'AA1AUD' ,0,SD 

//  EXTENT  SYS021.WRK1&P, 1,0, 20,060, B=1 

//  EXEC  TDYNASN 

//  ASSGN  SYS004, DUMMY 

/* 

//  EXEC  TPDK 

//  UTD  TC,FF,A= (080, 0800) ,B={ 080, 0800) , IU,OY,Rl ,E=(2314) 

//  END 

//  ASSGN  SYS001,X'DK2' 

//  ASSGN  SYS014,X'CR0'  CARD  INPUT 

//  TLBL  IA0AAUD, 'AOC.A0AAUD*  CABS  CONTROL  FILE  INPUT  AOC 

//  TLBL  IA02AUD, 'AOC.A02AUD'  CABS  TRANSACTIONS  AOC 

//  TLBL  IB02AUD, 'AOC.B02AUD'  CABS  BUDGET  DATA  OLD  AOC 

//  TLBL  OB02AUD , ' AOC . B02AUD 1  CABS  BUDGET  DATA  NEW  AOC 

//  DLBL  IA01AUD, 'AA1AUD' ,0,SD 
//  EXTENT  SYS021,WRK1&P,1 ,0,20, 060, B=1 
//  DLBL  IC02AUD, 'C02AUD,D' ,0,SD  CABS  CONTROL  CARD 
//  EXTENT  SYS020.WRK1&P, 1,0, 20,1, B=1 
//  DLBL  IE02AUD, 1 E02AUD' ,0,SD  CABS  INPUT  TRANS 
//  EXTENT  SYS020.WRK1&P, 1,0, 20,1,8=1 
//  DLBL  OF02AUD, 'F02AUD1 ,0,SD  PRINTFILE 
//  EXTENT  SYS020,WRK1&P,1 ,0,20,1, B=1 
//  DLBL  WG02AUD, 'G02AUD,D' ,0,SD 
//  EXTENT  SYS021.WRK1&P, 1,0, 20,100,8=1 
//  DLBL  WH02AUD , 1 H02AUD , D ' , 0 , SD 
//  EXTENT  SYS021,WRK1&P,1 ,0,20, 100, B=1 
//  DLBL  SORTWK1,'J02AUD,,0,SD 
//  EXTENT  SYS001.WRK2&P, 1,0, 20, 100,8=1 
//  TLBL  OY02AUD, ' Y02AUD'  SPOOL  OUTPUT 

//  EXEC  TDYNASN 
OPEN  OY02AUD , SYS013 , OUTPUT 
/* 

//  EXEC  P02AUD 

/*  PLACE  P02AUD  CONTROL  CARD  AND  DATA  CARDS  BEFORE  THIS  CARD 

//  EXEC  TDYNASN 
CLOSE  OY02AUD.SYS013, OUTPUT 
/* 

CLOSE  SYS013 
/* 

//  DLBL  IA01AUD, 'AA1AUD* 

//  EXTENT  SYS021,WRK1&P,1 ,0,20, 060, B=1 
//  DLBL  IE02AUD, 1 E02AUD' ,0,SD  CABS  INPUT  TRANS 
//  EXTENT  SYS020.WRK1&P, 1,0, 20, 1,8=1 
//  DLBL  OF02AUD, 'F02AUD' ,0,SD  PRINTFILE 
//  EXTENT  SYS020,WRK1&P,1,0,20,1 ,B=1 
//  EXEC  ADASD 
/* 

/& 

Figure  3.5-01 
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Ml 


JOB  CONTROL  STATEMENT  CARD  DECK  LISTING  -  DOS  (CONTINUED) 

//  JOB  AUDT02  Cl DOR  CABS  EDIT/UPDATE  CYC*COB 

*  JOB  STEP  P02AUD01 
//  TLBL  UIN, 'COB.A01AUD' 

//  DLBL  UOUT, 'AA1AUD' ,0,SD 

//  EXTENT  SYS021,WRK1&P,1,0,20,060,B=1 

//  EXEC  TDYNASN 

//  ASSGN  SYS004, DUMMY 

/* 

//  EXEC  TPDK 

//  UTD  TC,FF,A= (080, 0800) ,B= (080, 0800) , IU,OY,Rl,E=(2314) 

//  END 

//  ASSGN  SYS001 , X 1 DK2 ' 

//  ASSGN  SYS014,X'CR0'  CARD  INPUT 

//  TLBL  IA0AAUD , 1  COB . A0AAUD 1  CABS  CONTROL  FILE  INPUT  COB 

//  TLBL  IA02AUD, 'COB.A02AUD'  CABS  TRANSACTIONS  COB 

//  TLBL  IB02AUD, 'COB.B02AUD'  CABS  BUDGET  DATA  OLD  COB 

//  TLBL  OB02AUD, 1  COB . B02AUD 1  CABS  BUDGFT  DATA  NEW  COB 

//  DLBL  IA01AUD, 'AA1AUD' ,0,SD 
//  EXTENT  SYS021.WRK1&P, 1,0, 20,060, B=1 
//  DLBL  IC02AUD, 'C02AUD,D' ,0,SD  CABS  CONTROL  CARD 
//  EXTENT  SYS020.WRK1&P, 1,0, 20,1, B=1 
//  DLBL  IE02AUD, ' E02AUD' ,0,SD  CABS  INPUT  TRANS 
//  EXTENT  SYS020.WRK1&P, 1,0,20,1,6*1 
//  DLBL  OF02AUD, 'F02AUD' ,0,SD  PRINTFILE 
//  EXTENT  SYS020.WRK1&P, 1,0, 20,1, B=1 
//  DLBL  WG02AUD, 'G02AUD,D' ,0,SD 
//  EXTENT  SYS021,WRK1&P,1,0,20,100,B=1 
//  DLBL  WH02AUD , ' H02AUD , D 1 , 0 , SD 
//  EXTENT  SYS021,WRK1&P,1,0,20,100,B=1 
//  DLBL  SORTWK1, ' J02AUD' ,0,SD 
//  EXTENT  SYS001,WRK2&P,1,0,20,100,B=1 
//  TLBL  OY02AUD , ' Y02AUD '  SPOOL  OUTPUT 

//  EXEC  TDYNASN 
OPEN  OY02AUD.SYS013, OUTPUT 
/* 

//  EXEC  P02AUD 

/*  PLACE  P02AUD  CONTROL  CARD  AND  DATA  CARDS  BEFORE  THIS  CARD 

//  EXEC  TDYNASN 
CLOSE  OY02AUD.SYS01 3, OUTPUT 
/* 

CLOSE  SYS013 
/* 

//  DLBL  IA01AUD, 'AA1AUD' 

//  EXTENT  SYS021,WRK1&P,1 ,0,20, 060, B=1 

//  DLBL  IE02AUD,'E02AUD',0,SD  CABS  INPUT  TRANS 

//  EXTENT  SYS020,WRK1&P,1,0,20,1 ,B=1 

//  DLBL  OF02AUD, 'F02AUD' ,0,SD  PRINTFILE 

//  EXTENT  SYS020.WRK1&P, 1,0, 20,1, B=1 

//  EXEC  ADASD 

/* 
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JOB  CONTROL  STATEMENT  CARD  DECK  LISTING  -  DOS  (CONTINUED) 

//  JOB  AUDT02  Cl DOR  CABS  EDIT/UPDATE  CYC=OBL 

*  JOB  STEP  P02AUD01 
//  TLBL  UIN, 'OBL .A01AUD' 

//  DLBL  UOUT, 'AAIAUD* ,0,SD 
//  EXTENT  SYS021,WRK1&P,1 ,0,20, 060, B=1 
//  EXEC  TDYNASN 
//  ASSGN  SYS004, DUMMY 
/* 

//  EXEC  TPDK 

//  UTD  TC,FF , A= (080, 0800) ,B=( 080, 0800) , IU,0Y,R1,E=(2314) 

//  END 

//  ASSGN  SYS001,X'DK2' 

//  ASSGN  SYS014.X 'CR0'  CARD  INPUT 

//  TLBL  IA0AAUD, 'OBL.A0AAUD'  CABS  CONTROL  FILE  INPUT  OBL 

//  TLBL  IA02AUD, ' OBL.A02AUD'  CABS  TRANSACTIONS  OBL 

//  TLBL  IB02AUD, ' OBL.B02AUD'  CABS  BUDGET  DATA  OLD  OBL 

//  TLBL  OB02AUD , ' OBL . B02AUD '  CABS  BUDGET  DATA  NEW  OBL 

//  DLBL  IA01AUD, 'AA1AUD' ,0,SD 

//  EXTENT  SYS021 ,WRK1&P,1,0,20,060,B=1 

//  DLBL  IC02AUD, 'C02AUD,D' ,0,SD  CABS  CONTROL  CARD 

//  EXTENT  SYS020.WRK1&P, 1,0, 20,1, 8=1 

II  DLBL  IE02AUD, 1 E02AUD* ,0,SD  CABS  INPUT  TRANS 

//  EXTENT  SYS020,WRK1&P, 1,0, 20,1, B=1 

//  DLBL  OF02AUD, 'F02AUD' ,0,SD  PRINTFILE 

//  EXTENT  SYS020,WRK1&P,1 ,0,20,1, B=1 

II  DLBL  WG02AUD, 'G02AUD,D' ,0,SD 

//  EXTENT  SYS021,WRK1&P, 1,0, 20, 100,8=1 

//  DLBL  WH02AUD , 1 H02 AUD , D ' , 0 , SD 

//  EXTENT  SYS021,WRK1&P,1 ,0,20, 100, B=1 

//  DLBL  SORTWK1 , ' J02AUD ' , 0 , SD 

//  EXTENT  SYS001,WRK2&P,1 ,0,20, 100, B=1 

//  TLBL  OY02AUD , ' Y02AUD '  SPOOL  OUTPUT 

//  EXEC  TDYNASN 

OPEN  OY02AUD.SYS013, OUTPUT 

I* 

II  EXEC  P02AUD 

/*  PLACE  P02AUD  CONTROL  CARD  AND  DATA  CARDS  BEFORE  THIS  CARD 

//  EXEC  TDYNASN 

CLOSE  OY02AUD.SYS013, OUTPUT 

/* 

CLOSE  SYS013 
/* 

//  DLBL  IA01AUD, 'AAIAUD' 

//  EXTENT  SYS021.WRK1&P, 1,0, 20,060, B=1 

//  DLBL  IE02AUD, 'E02AUD' ,0,SD  CABS  INPUT  TRANS 

//  EXTENT  SYS020,WRK1&P, 1,0,20,1,6=1 

//  DLBL  OF02AUD, 'F02AUD ' ,0,SD  PRINTFILE 

//  EXTENT  SYS020,WRK1&P ,1 ,0,20,1 ,B=1 

//  EXEC  ADASD 

/* 

/& 

Figure  3.5-01 
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JOB  CONTROL  STATEMENT  CARD  DECK  LISTING  -  DOS  (CONTINUED) 

//  JOB  AUDT02  C1DOR  CABS  EDIT/UPDATE  CYC=SOR 

*  JOB  STEP  P02AUD01 
//  TLBL  UIN, 'SOR.A01AUD1 
//  DLBL  UOUT, 'AA1AUD' ,0,SD 
//  EXTENT  SYS021,WRK1&P,1 ,0,20, 060, B=1 
//  EXEC  TDYNASN 
//  ASSGN  SYS004, DUMMY 
/* 

//  EXEC  TPDK 

//  UTD  TC,FF,A= (080, 0800) ,B=( 080, 0800) , IU,OY,Rl,E=(2314) 

//  END 

//  ASSGN  SYS001,X'DK2' 

//  ASSGN  SYS014,X'CR0'  CARD  INPUT 

//  TLBL  IA0AAUD , 1 SOR . A0AAUD '  CABS  CONTROL  FILE  INPUT  SOR 

//  TLBL  IA02AUD , 1 SOR . A02AUD 1  CABS  TRANSACTIONS  SOR 

//  TLBL  I B02AUD , ' SOR . B02AUD '  CABS  BUDGET  DATA  OLD  SOR 

//  TLBL  OB02AUD , 1 SOR . B02AUD 1  CABS  BUDGET  DATA  NEW  SOR 

//  DLBL  IA01AUD , ' AA1AUD 1 , 0 , SD 

//  EXTENT  SYS021.WRK1&P, 1,0, 20,060, B=1 

//  DLBL  IC02AUD, 'C02AUD,D' ,0,SD  CABS  CONTROL  CARD 

//  EXTENT  SYS020.WRK1&P, 1,0, 20,1, B=1 

//  DLBL  I E02AUD , ' E02AUD ' , 0 , SD  CABS  INPUT  TRANS 

//  EXTENT  SYS020.WRK1&P, 1,0,20,1,6=1 

//  DLBL  OF02AUO, 'F02AUD' ,0,SD  PRINTFILE 

//  EXTENT  SYS020.WRK1&P, 1,0, 20,1, B=1 

//  DLBL  WG02AUD, ,G02AUD,DI ,0,SD 

//  EXTENT  SYS021 .WRKl&P , 1 ,0, 20,100, B=1 

//  DLBL  WH02AUD, ' H02AUD,D' ,0,SD 

//  EXTENT  SYS021.WRK1&P, 1,0, 20,100, B=1 

//  DLBL  SORTWK1 , 1 J02AUD 1 , 0 , SD 

//  EXTENT  SYS001.WRK2&P, 1,0, 20,100, B=1 

//  TLBL  OY02AUD, ' Y02AUD '  SPOOL  OUTPUT 

//  EXEC  TDYNASN 

OPEN  OY02AUD.SYS013, OUTPUT 

/* 

II  EXEC  P02AUD 

/*  PLACE  P02AUD  CONTROL  CARD  AND  DATA  CARDS  BEFORE  THIS  CARD 

//  EXEC  TDYNASN 

CLOSE  OY02AUD.SYS01 3, OUTPUT 

I* 

CLOSE  SYS013 
I* 

II  DLBL  IA01AUD, 'AA1AUD' 

//  EXTENT  SYS021.WRK1&P, 1,0,20,060,6=1 

//  DLBL  IE02AUD, 'E02AUD' ,0,SD  CABS  INPUT  TRANS 

//  EXTENT  SYS020.WRK1&P ,1 ,0, 20, 1 ,B=1 

//  DLBL  OF02AUD , 1 F 02AUD ' , 0 , SD  PRINTFILE 

//  EXTENT  SYS020,WRK1&P,1 ,0,20,1, B=1 

//  EXEC  ADASO 

/* 

/& 

Figure  3.5-01 
3-39 


ADSM  18-C1D-AUD-IBM  OM 
1  DEC  81 


JOB  CONTROL  STATEMENTS  (RETRIEVAL)  -  OS 


>:  AUDT02 

iME:  CABS  BUDGET  DATA  EDIT/UPDATE 


TO  PROCESS  STATION  LEVEL  DATA 


'02  JOB  (accounting  information) 

'0201  EXEC  AUDT02S1,CYC=XXX  (See  note  2) 

IUD03. IC02AUD  DD  * 

J-CNTL  (user  control  card  options) 

IUD03. IA02AUD  DD  DSN=NNNNNN, VOL=SER=XXXXXX  (see  note  1) 
WD03.IE02AUD  DD  * 

INSERT  BUDGET  DATA  TRANSACTION  CARDS  BEFORE  THIS  CARD 


TO  PROCESS  CONSOLIDATED  DATA 


r02  JOB  (accounting  information) 
r0201  EXEC  AUDT02S1 ,CYC=XXX  (See  note  2) 

\UD03. IC02AUD  DD  * 

l-CNTL  (user  control  card  options) 

\UD03. IA02AUD  DD  DSN=NNNNNN, VOL=SERsXXXXXX  (see  note  1) 
\UD03. IB02AUD  DD  DSN=AUD.CABS.&CYC. .B09AUD(0) 

\UD03 . OB02AUD  DD  DSN=AUD.CABS.&CYC. ,B09AUD(+1 ) 

\UD03. IE02AUD  DD  * 

INSERT  BUDGET  DATA  TRANSACTION  CARDS  BEFORE  THIS  CARD 


L:  Show  DSN  and  Volume  Serial  Number  of  any  budget  data  transaction 
tape  (A02AUD). 

On  EXEC  CARD,  substitute  for  XXX  the  appropriate  value  to 
indicate  type  of  run: 


COB,  AOC,  OBL,  SOR 


Figure  3.5-01 
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1/  OPTIONAL 

2/  A  minimum  of  1  and  a  maximum  of  2  tape  drives  are  required  for  initial  cycles, 
minimum  of  2  and  a  maximum  of  3  tape  drives  are  required  for  update  cycles. 


AUDT02 


RUN  MESSAGES  AND  RESPONSES 

For  uh  of  thto  form,  mo  TB  18-111;  tho  proponont  ogoncy  l»  CSA. 


3.  RUN  TITLE 

CABS  BU06ET  DATA  ED  IT/UPDATE 


MESSAGE  DISPLAYED 


ACTION  REQUIRED 


CONSOLE  MESSAGES: 


SAME  AS  SYSOUT/SYSLST 
SYSOUT/SYSLST  MESSAGES: 


P02AUD  01  H  NO  INPUT  DATA  RCDS 


P02AUD  02  H  INVALID  SORT 


P02AUD  03  H  TYPE  B  RCDS  EXCEED  LIMIT 


P02AUD  04  H  NO  TYPE  A  RCD 


P02AUD  05  H  NO  TYPE  B  RCDS 


There  are  no  input  transaction  data 
records.  The  run  is  stopped.  Notify 
the  CABS  analyst. 

The  sort  failed  for  an  unknown  reason, 
determine  the  cause  for  the  failure, 
correct  and  restart  the  run. 

The  type  B  control  records  exceed 
limit  established  in  the  users 
documentation.  Update  the  control 
file.  The  run  is  stopped.  Notify 
the  CABS  analyst. 

The  type  A  control  record  is  missing. 
Update  the  control  file.  The  run 
is  stopped.  Notify  the  CABS  analyst. 

The  type  B  control  records  are  missing. 
Update  the  control  file.  The  run  is 
stopped.  Notify  the  CABS  analyst. 
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RUN  MESSAGES  AND  RESPONSES 

For  uh  of  thl«  form,  m  T  B  18-111;  th«  propontnt  »9»ney  l«  CSA. 


2.  RUN  IO 

AUDT02 


3.  RUN  TITLE 

CABS  BUDGET  DATA  EDIT/UPDATE 


MESSAGE  DISPLAYED 


SYSOUT/SYSLST  MESSAGES:  (CONTINUED) 


1.  DATE 
811201 


ACTION  REQUIRED 


P02AUD  06  H  IND  FIELD  A  EXCEEDS  LIMIT 

P02AUD  07  H  IND  FIELD  B  EXCEEDS  LIMIT 
P02AUD  08  H  IND  FIELD  C  EXCEEDS  LIMIT 
P02AUD  09  H  CONTROL  CARD  MISSING 


A  limit  of  1300  INDA  has  been 
established  for  the  MCF.  This  limit 
has  been  exceeded.  Contact 
Functional  user.  Correct  limit  on 
MCF  and  rerun. 

A  limit  of  400  INDB. 

A  limit  of  400  INDC. 

The  P02AUD-CNTL  card  is  missing  or 
not  in  proper  place  in  JCL.  Correct 
and  rerun. 


P02AUD  10  H  SPOOL  WRITE  ERROR 

P02AUD  11  H  WRONG  LENGTH  RECORD 

P02AUD  12  H  DOS  EXTENTS  EXCEEDEO 
P02AUD  13  H  NO  VALID  TRANS  IN 


An  error  has  occurred  (DOS  only) 
while  attempting  to  write  to  the 
spool  tape.  The  run  is  stopped. 
Notify  the  CABS  analyst. 

A  wrong  length  record  was  encountered 
(DOS  only)  while  reading  input 
transactions.  The  run  is  stopped. 
Notify  the  CABS  analyst. 

Self-explanatory. 

All  input  transactions  were  rejected. 
No  Output  Budget  Data  File  was 
created. 


6.  REMARKS 


DA  TEE  4745 - 

Figure  3.5-01 
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j  RECOVERY  INSTRUCTIONS  1  DATE  1 

1  For  un  of  thl»  form,  mo  TB  18-111;  tho  proponent  sgoncy  It  CSA.  Ol  1  OA1  E 

ft  RUN  ID 

AUDT02 

ft  RUN  TITLE 

CABS  BUDGET  DATA  EDIT/UPDATF 

ft  IO  CODE 

S.  RECOVERY  INSTRUCTIONS 

IEBGEN02 

P02AUD03 

Restart  the  run. 

Restart  the  run. 

ft  REMARKS 

DA  ,srw  4751 

Figure  3.5-01 
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1.'.  - 

3.6 

Run  Description  AUDT03.  Reference  Figure  3.6-01 

• 

INDEX  FOR  FIGURE  3.6-01 

s 

NAME 

PAGE  NO. 

3.6.1 

Control  Inputs 

3. 6. 1.1 

Control  Cards 

3-52  thru  3-53 

3. 6. 1.2 

Control  Input  Statements 

NA 

m 

3. 6. 1.2.1 

Job  Control  Statements  (PROC) 

3-54  thru  3-62 

3. 6. 1.2. 2 

Job  Control  Statements  (RETRIEVAL) 

3-63 

3.6.2 

Management  Information 

3. 6. 2.1 

Run  Setup-Console  Operating 

3-64  thru  3-65 

Information 

• 

3. 6. 2. 2 

Run  Messages  and  Responses 

3-66 

3. 6. 2. 3 

Logic  Chart 

3-67  thru  3-70 

» ■ 

3.6.3 

Input-Output  Files 

See  DA  Form  4744 
for  the  I/O  File 

'tz  «* 

Information 

► 

3.6.4 

Output  Reports 

3-71 

3.6.5 

Reproduced  Output  Reports 

3.6. 5.1 

Reproduced  Output  Reports 

NA 

m 

3.6. 5. 2 

PCM  Processing  Instructions 

NA 

3.6.6 

Rest art/Reco very  Procedures 

3-72 

1 

3.6.6. 1 

Recovery  Instructions 

4 
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2.  RUN  ID 


AUDT03 


CONTROL  CARD  PREPARATION 

For  use  of  thli  form,  see  TB  18-111;  the  proponent  agency  it  CSA. 

3.  RUN  TITLE 

CABS  TRIAL  TAB  AND/OR  BALANCE  REPORT 


811201 


4.  COf  TROL  CARD  ID 

P03AUD-CNTL 


6.  CONTROL  CARD  PURPOSE  AND  REMARKS 


5.  CONTROL  CARD  TITLE 

P03AUD-CONTROL-CARD 


To  provide  program  parameter  options. 


7.  USER  INFORMATION,  IF  REQUIRED 


NOTE:  "TAB"  option  is  for  OS  version  only;  it  has  no  effect  for  DOS.  If 
this  option  is  desired  on  DOS,  it  must  be  coordinated  with  DPI  analyst 
to  omit  Job  Steps  P04AUD03  and  P05AUD04. 


TYPE- 

REPORT 


TAB- 

SCOPE 


CNTL-ID  1  11 


TAB-TYPE  13  16 
DATA 


18  20 


CONTROL  CARD  INSTRUCTIONS 


PREPARATION  INSTRUCTIONS 


iBLU-iJ.lJUMU 


Constant  "P03AUD-CNTL " 

Blank 

"OMAA"  to  input  budget  data  for  OMA  Functional 

only  for  Trial  Tab.  user 

"OMAR"  to  input  budget  data  for  OMAR 
only  for  Trial  Tab. 

Blank  to  include  all  budget  data 
(OMA  and  OMAR)  on  Trial  Tab. 

Blank 

"TAB"  to  produce  Trial  Tab  only  (see  note  Item  7).  Functional 
"BAL"  to  produce  Balance  Report  only.  user 

Blank  to  produce  both. 


22  27 


28  80 


-  4743 


Blank 

"UPDATE"  to  limit  Trial  Tab  to  those 
station  codes  that  were  affected 
by  latest  budget  data  update. 

Blank  to  include  all  station  codes 
on  the  budget  data  file. 

Blank 


Figure  3.6-01 


Functional 
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'  • 


* 


* 


CONTROL  CARD  PREPARATION  1 1  oate 

811201 

For  UK  of  thl«  form,  im  TB  18-1 11;  the  proponent  agency  It  CSA.  | 

2.  RUN  ID 

3.  RUN  TITLE 

AUDT03 

CABS  TRIAL  TAB  AND/OR  BALANCE  REPORT 

4.  cor  TROL  CARO  ID 

5.  CONTROL  CARD  TITLE 

P04AUD-CNTL 

P04AUD-CONTROL-CARD 

8.  CONTROL  CARO  PURPOSE  AND  REMARKS 

To  provide  program  parameter  options. 

7.  USER  INFORMATION,  IF  REQUIRED 

8. 

CONTROL  CARD  INSTRUCTIONS 

FIELD 

POSITION 

PREPARATION  INSTRUCTIONS 

RESPONSIBLE 

AGENCY 

_  9, 

6. 

_  c. 

d. 

CNTL-ID 

1  11 

Constant  "P04AUD-CNTL " 

12 

Blank 

BAL-TYPE 

DATA 

13  16 

"OMAA"  to  input  budget  data  for  OMA 

Functional 

only  for  Balance  Report. 

"OMAR"  to  input  budget  data  for  OMAR 

user 

only  for  Balance  Report. 

Blank  to  include  all  budget  data 

(OMA  and  OMAR)  on  Balance  Report. 

17 

Blank 

BAL- 

18  23 

"UPDATE"  to  limit  Balance  Report  to 

Functional 

SCOPE 

those  station  codes  that  were 
affected  by  latest  budget  data 
update. 

user 

Blank  to  include  all  station  codes  on 

the  budget  data  file. 

24 

Blank 

QTR-SEL 

25  28 

Quarter  select  (Quarter  Codes  1  thru  4, 

Functional 

or  blanks  can  be  entered  in  any  sequence); 
all  blank  will  select  all  Quarters. 

user 

29  80 

Blank 

DA  .  r“,.  4743 


Figure  3.6-01 
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JOB  CONTROL  STATEMENTS  (PROC)  -  OS 
IDT03S1  PROC  CYC=COB 

a-******************************************'******************** 

*  THIS  PROC  PRODUCES  THE  CABS  TRIAL  TAB  AND/OR  BALANCE  REPORT  * 
*************************************************************** 

r 

:BGEN01  EXEC  PGM=IEBGENER 
’SPRINT  DD  SYSOUT=A 

SUT1  DD  DSN=AUD.CABS.&CYC. .A0AAUD(0) ,DISP=OLD 
SUT2  DD  DSN=AUD.CABS.A0AAUD,UNIT=SYSDA,SPACE=(CYL,3) , 

DI SP=( NEW, PASS) ,DCB=(RECFM=BFS,BLKSIZE=1200,LRECL=120) 

’SIN  DD  DUMMY  r 

J3AUD02  EXEC  PGM=P03AIJD 
’SIN  DD  DUMMY 

L0AAUD  DD  DSN=AUD. CABS. A0AAUD,DISP=(OLD, PASS) 

I02AUD  DD  DSN=AUD. CABS. &CYC..B02AUD(0),DISP=(OLD, PASS) 

103AUD  DD  DSN=AUD. CABS. A03AUD, UNI T=TAPE9,LABEL=RETPD=7, 

DCB=(RECFM=BFS,BLKSIZE=1330,LRECL=133) ,  r 

DISP=(NEW, KEEP, DELETE) 

!03AUD  DD  UNIT=SYSDA,SPACE=(CYL,2) , 

DCB= ( RECFM=BFS , BLKS I ZE=800, LRECL=80) 

:03AUD  DD  UNIT=SYSDA,SPACE=(CYL,2) , 

DCB=(RECFM=BFS,BLKSIZE=800,LR£CL=80) 

’SOUT  DD  SYSOUT=A  •  I 

'SUDUMP  DD  SYSOUT=A 

I4AUD03  EXEC  PGM=P04AUD,COND=(1111,EQ) ,TIME=240 
’SIN  DD  DUMMY 

10AAUD  DD  DSN=AUD. CABS. A0AAUD,DISP=(OLD, PASS) 

102AUD  DD  DSN=*.P03AUD02. IB02AUD,DISP=OLD 

104AUD  DD  DSN=AUD. CABS. A04AUD,UNIT=SYSDA,SPACE=(CYL, (60,2) ) ,  » 

DISP=(, PASS, DELETE ),DCB=(RECFM=BFS,BLKSIZE=1480,LRECL=148) 

104AUD  DD  UNIT=SYSDA,SPACE=(CYL,2) , 

DCB=(RECFM=BFS,BLKSIZE=800,LRECL=80) 

IRTLIB  DD  DSN=SYSl.SORTLIB,DISP=SHR 
IRTWK01  DD  UNI T=SYSDA,SPACE=(CYL, 20, , CONTI G) 

IRTWK02  DD  UNIT=SYSDA,SPACE=(CYL,20, , CONTI G)  » 

IRTWK03  DD  UNIT=SYSDA,SPACE=(CYL,20, ,CONTIG)  •  “ 

IRTWK04  DD  UNIT=SYSDA,SPACE=(CYL,20, ,CONTIG) 

'SOUT  DD  SYSOUT=A 
’SUDUMP  DD  SYSOUT=A 

I5AUD04  EXEC  PGM=P05AUD,COND=(1111,EQ) 

I0AAUD  DD  DSN=AUD. CABS. AOAAUD,DISP=(OLD, DELETE)  * 

i04 AUD  DD  DSN=AUD. CABS. A04AUD,DISP=(OLD, DELETE) 

105AUD  DD  SYSOUT=A,DCB=BLKSIZE=133 
105AUD  DD  UNIT=SYSDA,SPACE=(CYL,2) , 

DCB=(RECFM=BFS,BLKSIZE=800,LRECL=80) 

'SOUT  DD  SYSOUT=A 

'SUDUMP  DD  SYSOUT=A  » 

Figure  3.6-01 
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JOB  CONTROL  STATEMENT  CARD  DECK  LISTING  -  DOS 


//  JOB  AUDT03  C1D0R  CABS  TRIAL  TAB  AND  BALA  CYC=AOC 

*  JOB  STEP  P03AUD01 

//  TLBL  UIN, 'AOC.A0AAUD' 

//  DLBL  UOUT, 1 AAAAUD' ,0,SD 
//  EXTENT  SYS021.WRK1&P, 1,0, 20,060, B=1 
//  EXEC  TDYNASN 
//  ASSGN  SYS004, DUMMY 
/* 

//  EXEC  TPDK 

//  UTD  TC,FF ,A*(120,1200) ,B*( 120, 1200) , IU,OY,Rl ,E=(2314) 

//  END 

*  JOB  STEP  P03AUD02 

//  TLBL  I B02AUD , 1 AOC . B02AUD 1  CABS  BUDGET  DATA  AOC 

//  DLBL  I A0AAUD,* AAAAUD' 

//  EXTENT  SYS021.WRK1&P, 1,0, 20,1,8-1 
//  DLBL  OA03AUD , ' A03AUD 1  PRINTFILE 

//  EXTENT  SYS021,WRKliP,l,0,20,l,B*l 
//  DLBL  WC03AUD , 1 C03AUD 1 
//  EXTENT  SYS021,WRK1&P,1 ,0,20, 040, B=1 
//  DLBL  WE03AUD , ' E03AUD ‘ 

//  EXTENT  SYS021,WRK1&P, 1,0 ,20,040,8*1 
//  TLBL  OY03AUD, 1 Y03AUD 1  SPOOL  OUTPUT 

//  EXEC  TDYNASN 
OPEN  OY03AUD.SYS013, OUTPUT 
/* 

//  EXEC  P03AUD 

P03AUD-CNTL  (User  Control  Card  Options) 

/*  PLACE  P03AUD  CONTROL  CARD  BEFORE  THIS  CARD 

/* 

//  EXEC  TDYNASN 

CLOSE  OY03AUD.SYS01 3, OUTPUT 

/* 


Figure  3.6-01 
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JOB  CONTROL  STATEMENT  CARD  DECK  LISTING  -  DOS  (CONTINUED) 


*  JOB  STEP  P04AUD03 
//  ASSGN  SYS001,X'DK2' 

//  DLBL  IA0AAUD, 'AAAAUD' 

//  EXTENT  SYS021,WRK1&P ,1 ,0,20,1 ,B=1 

//  TLBL  IB02AUD, 'AOC.B02AUD'  CABS  BUDGET  DATA  AOC 

//  DLBL  WA04AUD , 1 A04AUD 1 

//  EXTENT  SYS021 ,WRK1&P,1 ,0,20,600,8=1 

//  DLBL  WB04AUD, *  804AUD 1 

//  EXTENT  SYS021 ,WRK1&P ,1 ,0,20,040,B=1 

//  DLBL  SORTWK1 , 1 J04AUD ‘ 

//  EXTENT  SYS001,WRK2&P ,1 ,0,20,100,B=1 

//  EXEC  P04AUD 

P04AUD-CNTL 

/*  PLACE  P04AUD  CONTROL  CARD  BEFORE  THIS  CARD 

*  JOB  STEP  P05AUD04 

//  DLBL  IA0AAUD,' AAAAUD' 

//  EXTENT  SYS021,WRK1&P,1,0,20,1,B=1 
//  DLBL  WA04AUD , 1 A04AUD , D ' 

//  EXTENT  SYS021,WRK1&P,1 ,0,20,1, B=1 
//  DLBL  OA05AUD, 1 A05AUD 1  PRINTFILE 

//  EXTENT  SYS021 .WRKl&P ,1 ,0,20,1 ,B=1 
//  DLBL  WB05AUD, 'B^rAuD 
//  EXTENT  SYS021,WKK1&:\1, 0,20, 040, B=1 
//  EXEC  P05AUD 
CLOSE  SYS013 
/* 

//  DLBL  IA0AAUD, 'AAAAUD' 

//  EXTENT  SYS021,WRK1&P,1,0,20,1,B=1 
//  DLBL  OA03AUD, 'A03AUD'  PRINTFILE 

//  EXTENT  SYS021,WRK1&P,1,0,20,1,B=1 
//  DLBL  WC03AUD, 'C03AUD' 

//  EXTENT  SYS021,WRK1&P,1 ,0,20,1 ,B=1 
//  DLBL  WE03AUD, ' E03AUD ' 

//  EXTENT  SYS021 ,WRK1&P,1 ,0,20,1 ,B=1 
//  DLBL  WB04AUD, ' B04AUD ' 

//  EXTENT  SYS021 ,WRK1&P,1 ,0,20,1, B=1 
//  DLBL  OA05AUD, ' A05AUD ' 

//  EXTENT  SYS021 ,WRK1&P ,1 ,0,20,1 ,B=1 
//  DLBL  WB05AUD, ' B05AUD ' 

//  EXTENT  SYS021,WRK1&P,1,0,20,1,B=1 
//  EXEC  ADASD 
/* 

/& 
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JOB  CONTROL  STATEMENT  CARD  DECK  LISTING  -  DOS  (CONTINUED) 


//  JOB  AUDT03  C1D0R  CABS  TRIAL  TAB  AND  BALA  CYC=COB 

*  JOB  STEP  P03AUD01 

//  TLBL  UIN, 'COB.A0AAUD' 

//  DLBL  UOUT, 'AAAAUD' ,0,SD 

//  EXTENT  SYS021.WRK1&P, 1,0, 20,060, B=1 

//  EXEC  TDYNASN 

//  ASSGN  SYS004, DUMMY 

/* 

//  EXEC  TPDK 

//  UTD  TC, FF, A= ( 1 20, 1200 ),B=( 120, 1200) , IU,0Y,R1,E=(2314) 

//  END 

*  JOB  STEP  P03AUD02 

//  TLBL  I B02AUD , 1  COB . B02AUD '  CABS  BUDGET  DATA  COB 

//  DLBL  IA0AAUD,' AAAAUD* 

//  EXTENT  SYS021.WRK1&P,!, 0,20,1, B=1 
//  DLBL  OA03AUD , ' A03AUD *  PRINTFILE 

//  EXTENT  SYS021.WRK1&P, 1,0, 20,1, B=1 
//  DLBL  WC03AUD, * C03AUD ' 

//  EXTENT  SYS021,WRK1&P,1,0,20,040,B=1 
//  DLBL  WE03AUD, 'E03AUD* 

//  EXTENT  SYS021 , WRK1&P , 1 , 0,20, 040, B=1 
//  TLBL  OY03AUD , 1 Y03AUD 1  SPOOL  OUTPUT 

//  EXEC  TDYNASN 
OPEN  OY03AUD.SYS01 3, OUTPUT 
/* 

//  EXEC  P03AUD 

P03AUD-CNTL  (User  Control  Card  Options) 

/*  PLACE  P03AUD  CONTROL  CARD  BEFORE  THIS  CARD 

/* 

//  EXEC  TDYNASN 
CLOSE  OY03AUD.SYS01 3, OUTPUT 
/* 
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JOB  CONTROL  STATEMENT  CARD  DECK  LISTING  -  DOS  (CONTINUED) 


*  JOB  STEP  P04AUD03 
//  ASSGN  SYS001,X'DK2' 

//  DLBL  IA0AAUD, 'AAAAUD' 

//  EXTENT  SYS021.WRK1&P, 1,0, 20,1, B=1 

//  TLBL  IB02AUD, 'CO8.B02AUD'  CABS  BUDGET  DATA  COB 

//  DLBL  WA04AUD , 1 A04AUD ' 

//  EXTENT  SYS021 ,WRK1&P,1 ,0,20, 600, B=1 
//  DLBL  WB04AUD, 'B04AUD' 

//  EXTENT  SYS021,WRK1&P, 1,0, 20,040,8=1 

//  DLBL  SORTWK1 , 1 J04AUD 1 

//  EXTENT  SYS001,WRK2&P,1 ,0,20, 100, B=1 

//  EXEC  P04AUD 

P04AUD-CNTL 

/*  Place  P04AUD  control  card  before  this  card 

*  JOB  STEP  P05AUD04 

//  DLBL  IA0AAUD,1 AAAAUD' 

//  EXTENT  SYS021 ,WRK1&P,1 ,0,20,1 ,B=1 
//  DLBL  WA04AUD , 1 A04AUD , D 1 
//  EXTENT  SYS021,WRK1&P,1,0,20,1,B=1 
//  DLBL  OA05AUD, 1 A05AUD 1  PRINTFILE 

//  EXTENT  SYS021,WRK1&P, 1,0, 20,1, B=1 
//  DLBL  WB05AUD , 1 B05AUD 1 
//  EXTENT  SYS021,WRK1&P,1 ,0,20, 040, B=1 
//  EXEC  P05AUD 
CLOSE  SYS013 
/* 

//  DLBL  IA0AAUD,' AAAAUD* 

//  EXTENT  SYS02i,WRKl&P,l ,0,20,1, B=1 
//  DLBL  OA03AUD, 1 A03AUD*  PRINTFILE 

//  EXTENT  SYS021,WRK1&P,1,0,20,1,B=1 
//  DLBL  WC03AUD, 1 C03AUD ' 

//  EXTENT  SYS021 ,WRK1&P,1 ,0,20,1, B=1 
//  DLBL  WE03AUD, 1 E03AUD ' 

//  EXTENT  SYS021,WRK1&P,1 ,0,20,1, B=1 
//  DLBL  WB04AUD, ' B04AUD 1 
//  EXTENT  SYS021 ,WRK1&P,1 ,0,20,1 ,B=1 
//  DLBL  OA05AUD, 'A05AUD' 

//  EXTENT  SYS021 ,WRK1&P,1 ,0,20,1 ,B=1 
//  DLBL  WB0SAUD , ' B05AUD 1 
//  EXTENT  SYS021,WRK1&P,1,0,20,1,B=1 
//  EXEC  ADASD 
/* 

/& 
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JOB  CONTROL  STATEMENT  CARD  DECK  LISTING  -  DOS  (CONTROL) 


//  JOB  AUDT03  C1D0R  CABS  TRIAL  TAB  AND  BALA  CYC=OBL 

*  JOB  STEP  P03AUD01 

//  TLBL  UIN, 'OBL.A0AAUD' 

//  DLBL  UOUT, 'AAAAUD' ,0,SD 
//  EXTENT  SYS021,WRK1&P,1,0,20,060,B=1 
//  EXEC  TDYNASN 
//  ASSGN  SYS004, DUMMY 
/* 

//  EXEC  TPDK 

//  UTD  TC, FF, A= ( 120, 1200), B= (120, 1200) ,IU,0Y,R1,E*(2314) 

//  END 

*  JOB  STEP  P03AUD02 

//  TLBL  I B02AUD , 1 OBL . B02AUD '  CABS  BUDGET  DATA  OBL 

//  DLBL  I A0AAUD,1 AAAAUD' 

//  EXTENT  SYS021,WRK1&P, 1,0, 20, 1,8=1 
//  DLBL  OA03AUD , 1 A03AUD 1  PRINTFILE 

//  EXTENT  SYS021.WRK1&P.1, 0,20,1, B=1 
//  DLBL  WC03AUD , 1 C03AUD 1 
//  EXTENT  SYS021 .WRKl&P ,1 ,0,20,040, B=1 
//  DLBL  WE03AUO , ' E03AUO ' 

//  EXTENT  SYS021.WRK1&P, 1,0,20,040, B=1 

//  TLBL  OY03AUD, 'Y03AUD'  SPOOL  OUTPUT 

//  EXEC  TDYNASN 

OPEN  OY03AUD.SYS013, OUTPUT 

/* 

//  EXEC  P03AUD 

P03AUD-CNTL  (User  Control  Card  Options) 

/*  PLACE  P03AUD  CONTROL  CARD  BEFORE  THIS  CARD 

/* 

//  EXEC  TDYNASN 
CLOSE  OY03AUD,SYS01 3, OUTPUT 
/* 
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JOB  CONTROL  STATEMENT  CARD  DECK  LISTING  -  DOS  (CONTINUED) 


*  JOB  STEP  P04AUD03 
//  ASSGN  SYS001,X'DK2‘ 

//  DLBL  IA0AAUD, 'AAAAUD' 

//  EXTENT  SYS021.WRK1&P, 1,0, 20,1, B=1 

//  TLBL  I B02AUD , ' OBL . B02AUD '  CABS  BUDGET  DATA  OBL 

//  DLBL  WA04AUD, 'A04AUD' 

//  EXTENT  SYS021,WRK1&P,1 ,0,20, 600, B=1 
//  DLBL  WB04AUD, 1 B04AUD* 

//  EXTENT  SYS021.WRK1&P, 1,0, 20,040,8=1 
//  DLBL  SORTWK1 , ' J04AUD' 

//  EXTENT  SYS001,WRK2&P,1,0,20,100,B=1 

//  EXEC  P04AUD 

P04AUD-CNTL 

/*  PLACE  P04AUD  CONTROL  CARD  BEFORE  THIS  CARD 

*  JOB  STEP  P05AUD04 

//  DLBL  IA0AAUD,' AAAAUD' 

//  EXTENT  SYS021.WRK1&P, 1,0, 20,1,8=1 

//  DLBL  WA04AUD , 1 A04AUD , D 1 

//  EXTENT  SYS021.WRK1&P, 1,0,20,1,6=1 

//  DLBL  OA05AUD, ' A05AUD1  PRINTFILE 

//  EXTENT  SYS021.WRK1&P, 1,0,20,1,8=1 

//  DLBL  WB05AUD , 1 B05AUD 1 

//  EXTENT  SYS021 ,WRK1&P , 1 , 0,20, 040, B=1 

//  EXEC  P05AUD 

CLOSE  SYS013 

/* 

//  DLBL  I A0AAUD,' AAAAUD' 

//  EXTENT  SYS021 ,WRK1&P ,1 ,0,20,1 ,B=1 
//  DLBL  OA03AUD, ' A03AUD '  PRINTFILE 

//  EXTENT  $YS021,WRK1&P,1,0,20,1,B=1 
//  DLBL  WC03AUD, 'C03AUD' 

//  EXTENT  SYS021 ,WRK1&P ,1 ,0,20,1 ,B=1 
//  DLBL  WE03AUD, ' E03AUD ' 

//  EXTENT  SYS021,WRK1&P,1,0,20,1 ,B=1 
//  DLBL  WB04AUD, ' B04AUO ' 

//  EXTENT  SYS021 .WRKl&P ,1 ,0,20,1 ,B=1 
//  DLBL  OA05AUD, 'A05AUD' 

//  EXTENT  SYS021,WRK1&P,1,0,20,1,B=1 
//  DLBL  WB05AUD, 'B05AUD' 

//  EXTENT  SYS021 ,WRK1&P,1 ,0,20,1 ,B=1 
//  EXEC  ADASD 
/* 

/& 
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JOB  CONTROL  STATEMENT  CARD  DECK  LISTING  -  DOS  (CONTINUED) 


//  JOB  AUDT03  C1D0R  CABS  TRIAL  TAB  AND  BALA  CYC=SOR 

*  JOB  STEP  P03AUD01 

//  TLBL  UIN, 'SOR.A0AAUD* 

//  DLBL  UOUT, 'AAAAUD' ,0,SD 

//  EXTENT  SYS021.WRK1&P, 1,0, 20,060, B=1 

//  EXEC  TDYNASN 

//  ASSGN  SYS004, DUMMY 

/* 

//  EXEC  TPDK 

//  UTD  TC, FF, A=( 120, 1200), B={ 120, 1200) ,IU,OY,Rl, E=( 2314) 

//  END 

*  JOB  STEP  P03AUD02 

//  TLBL  IB02AUD, 'SOR.B02AUD'  CABS  BUDGET  DATA  SOR 

//  DLBL  IA0AAUD,' AAAAUD' 

//  EXTENT  SYS021 ,WRK1&P ,1,0, 20, 1 ,B=1 
//  DLBL  OA03AUD , 1 A03AUD 1  PRINTFILE 

//  EXTENT  SYS021.WRK14P, 1,0,20,1,8=1 
//  DLBL  WC03AUD, 1 C03AUD ' 

//  EXTENT  SYS021,WRK14P,1,0,20,040,B=1 
//  DLBL  UE03AUD , ' E03AUD ' 

//  EXTENT  SYS021 ,WRK1&P , 1 ,0 ,20,040, B=1 
//  TLBL  OY03AUD , 1 Y03AUD 1  SPOOL  OUTPUT 

//  EXEC  TDYNASN 
OPEN  OY03AUD,SYS013, OUTPUT 
/* 

II  EXEC  P03AUD 

P03AUD-CNTL  (User  Control  Card  Options) 

/*  PLACE  P03AUD  CONTROL  CARD  BEFORE  THIS  CARD 

/* 

//  EXEC  TDYNASN 
CLOSE  OY03AUD.SYS013, OUTPUT 
/* 


Figure  3.6-01 


ADSM  18-C1D-AUD-IBM  OM 
1  DEC  81 


JOB  CONTROL  STATEMENT  CARD  DECK  LISTING  -  DOS  (CONTINUED) 


*  JOB  STEP  P04AUD03 
//  ASSGN  SYS001,X'DK2' 

//  DLBL  IA0AAUD, 'AAAAUD' 

//  EXTENT  SYS021 ,WRK1&P ,1 ,0,20,1 ,B=1 

//  TLBL  IB02AUD, 'SOR.B02AUD'  CABS  BUDGET  DATA  SOR 

//  DLBL  WA04AUD, 'A04AUD' 

//  EXTENT  SYS021  ,WRK1&P,1 ,0,20, 600, B=1 
//  DLBL  WB04AUD, 'B04AUD' 

//  EXTENT  SYS021 ,WRK1&P,1 ,0,20, 040, B=1 
//  DLBL  SORTWK1 , ' J04AUD ' 

//  EXTENT  SYS001,WRK2&P,1,0,20,100,B=1 

//  EXEC  P04AUD 

P04AUD-CNTL 

/*  PLACE  P04AUD  CONTROL  CARD  BEFORE  THIS  CARD 

*  JOB  STEP  P05AUD04 

//  DLBL  IA0AAUD,' AAAAUD' 

//  EXTENT  SYS021 ,WRK1&P ,1 ,0,20,1 ,B=1 
//  DLBL  WA04AUD, ,A04AUD>O‘ 

//  EXTENT  SYS021,WRK1&P, 1,0,20, 1,B=1 
//  DLBL  OA05AUD, 'A05AUD'  PRINTFILE 
//  EXTENT  SYS021.WRK1&P, 1,0, 20,1, B*1 
//  DLBL  WB05AUD, 'B05AUD' 

//  EXTENT  SYS021,WRK1&P,1, 0,20,040, B=1 
U  EXEC  P05AUD 
CLOSE  SYS013 
/* 

//  DLBL  IA0AAUD, 'AAAAUD' 

//  EXTENT  SYS021 ,WRK1&P,1 ,0,20,1 ,B=1 
//  DLBL  OA03AUD , ' A03AUD '  PRINTFILE 

//  EXTENT  SYS021,WRK1&P,1 ,0,20,1 ,B=1 
//  DLBL  WC03AUD, 'C03AUD' 

//  EXTENT  SYS021 ,WRK1&P,1,0,20,1 ,B=1 
//  DLBL  WE03AUD, ' E03AUD ' 

//  EXTENT  SYS021,WRK1&P,1 ,0,20,1 ,B=1 
//  DLBL  WB04AUD, ' B04AUD' 

//  EXTENT  SYS021,WRK1&P,1,0,20,1,B=1 
//  DLBL  OA05AUD, 'A05AUD' 

//  EXTENT  SYS021 ,WRK1&P,1,0,20,1,B=1 
//  DLBL  WB05AUD, ' B05AUD ' 

//  EXTENT  SYS021 ,WRK1&P,1 ,0,20,1, B=1 
//  EXEC  ADASD 
/* 

/& 
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JOB  CONTROL  STATEMENT  (RETRIEVAL)  -  OS 


RUN  ID:  AUOT03 

RUN  NAME:  CABS  TRIAL  TAB  AND/OR  BALANCE  REPORT 

//AUDT03  JOB  (accounting  information) 

//AUDT0301  EXEC  AUDT03S1,CYC=XXX  (see  note  1) 

//P03AUD02.SYSIN  DD  * 

P03AUD-CNTL  (user  control  card  options) 

/* 

//P03AUD02 . IB02AUD  DD  DSN=AUD.CABS.&CYC. .B09AUD(0)  *omit  if  station  data  run* 
//P04AUD03 . SYSI N  DD  * 

P04AUD-CNTL  (user  control  card  options) 

/* 

// 


NOTE  1:  On  EXEC  CARD,  subustitute  for  XXX  the  appropriate  value  to 
indicate  type  of  run: 

COB,  AOC,  OBL,  SOR 


Figure  3.6-01 
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1/  MUTUALLY  EXCLUSIVE 
*  OS  only. 

**  DOS  only. 
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RUN  MESSAGES  AND  RESPONSES 

For  use  of  this  form,  m«  TB  18-111;  the  proponent  agency  it  CSA. 


i.  date 
811201 


2TRUN  ID 

AUDT03 


3.  RUN  TITLE 

CABS  TRIAL  TAB  AND/OR  BALANCE  REPORT 


MESSAGE  DISPLAYED 


6. 


ACTION  REQUIRED 


CONSOLE  MESSAGES: 

SAME  AS  SYSOUT/SYSLST 

SYSOUT/SYSLST  MESSAGES: 

P03AUD  02  H  NO  TYPE  E  CTL  RCD  FOR 
THIS  DATA  RCD  value 

P03AUD  03  I  STATIONS  USED  IN  TRIAL 
TAB:  value 


P03AUD  11  H  * 

*CTL  CARD  INVALID 


♦TYPE  E  RCDS  EXCEED  LIMIT 


P04AUD  01  H  NO  DATA  RCDS 


P04AUD  02  H  TYPE  F  RCDS  EXCEED  LIMIT 
FOR  RSN  value 


P04AUD  04  I  STATIONS  USED  IN  BALANCE 
REPORT:  value 


P04AUD  11  H  CONTROL  CARD  MISSING  OR 
INVALID 


Notify  the  CABS  analyst. 


Information  only.  The  word  VALUE 
represents  the  actual  station  codes 
used  or  the  word  "ALL". 

Control  card  accepted  from  SYSIN  is 
missing  or  invalid;  correct  and 
restart  the  run. 

Control  file  must  be  corrected 
Notify  functional  user. 

No  records  on  the  input  budget  data 
file  meet  selection  criteria.  The 
run  is  stopped.  Notify  the  CABS 
analyst. 

The  type  F  control  records  exceed 
limit  established  in  the  users 
manual  for  the  rsn  specified  as 
value.  Update  the  control  file. 

The  run  is  stopped.  Notify  the  CABS 
analyst. 

Information  only.  The  word  VALUE 
represents  the  actual  station  codes 
used  or  the  word  "ALL". 

Control  card  accepted  from  SYSIN  is 
missing  or  invalid;  correct  and 
restart  the  run. 


6.  REMARKS 


DA  TBE  4745 

Figure  3.6-01 
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1  LOGIC  CHART 

|  For  UN  of  thlt  form,  u«  TB  IB-111;  the  proponent  agency  It  CSA. 

1.  DATE  | 

811201  S 

2.  ID 

AUDT03 

3.  TITLE 

CABS  TRIAL  TAB  AND/OR  BALANCE  REPORT 

U 


FORM 
1  NOV  78 


4735 


Figure  3.6-01 
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LOGIC  CHART 

For  use  of  this  form,  see  TB  18-111;  the  proponent  agency  is  CSA. 

1.  DATE 

811201 

3.  TITLE 

IDT03 

CABS  TRIAL  TAB  AND/OR  BALANCE  REPORT 

Figure  3.6-01 
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AD-A122  122  CABS:  COMMAND  AUTOMATED  BUDGET  SYSTEM  COMPUTER  2/2 

OPERATION  MANUALIU)  ARMV  COMPUTER  SYSTEMS  COMMAND 
SUPPORT  GROUP  ATLANTA  FORT  GILL.  .  01  DEC  81 

UNCLASSIFIED  ADSM-18-C1D-AUD- IBM-OM  DOD/DF-82/001A  F/G  9/2  NL 
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Figure  3.6-01 


REMARKS 


$ 


RECOVERY  INSTRUCTIONS 

For  un  of  thlf  form.  aaa  TB  18-111;  the  proponent  agancy  it  CSA. 


2.  RUN  ID  3.  RUN  TITLE 

AUDT03  CABS  TRIAL  TAB  AND/OR  BALANCE  REPORT 


RECOVERY  INSTRUCTIONS 


IEBGEN01  Restart  with  the  original  input  and  JCL  setup. 

P03AUD02  Restart  with  the  original  input  and  JCL  setup. 

P04AUD03  *  Restart  with  the  original  input  and  JCL  setup. 

P05AUD04  *  Restart  with  the  original  input  and  JCL  setup. 

*  NOTE:  Coordinate  with  Functional  Analyst.  It  may 
be  permissible  to  change  P03AUD-CNTL  card  to  use  the 
"BAL"  (Balance  Report  Only)  option  and  use  the  trial 
TAB  produced  prior  to  the  ABEND. 
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3.7  Run  Description  AUDT04.  Reference  Figure  3.7-01 

INDEX  FOR  FIGURE  3.7-01 


NAME 

PAGE  NO. 

3.7.1 

Control  Inputs 

3. 7. 1.1 

Control  Cards 

3-74  thru  3-75 

3. 7. 1.2 

Control  Input  Statements 

NA 

3. 7. 1.2.1 

Job  Control  Statements  (PROC) 

3-76  thru  3-84 

3. 7. 1.2.2 

Job  Control  Statements  (RETRIEVAL) 

3-85 

3.7.2 

Management  Information 

3. 7.2.1 

Run  Setup-Console  Operating 

Information 

3-86  thru  3-87 

3. 7.2.2 

Run  Messages  and  Responses 

3-88  thru  3-90 

3. 7. 2. 3 

Logic  Chart 

3-91  thru  3-95 

3.7.3 

Input-Output  Files 

See  DA  Form  4744 
for  the  I/O  File 
Information 

3.7.4 

Output  Reports 

3-96 

3.7.5 

Reproduced  Output  Reports 

3. 7. 5.1 

Reproduced  Output  Reports 

NA 

3. 7. 5. 2 

PCM  Processing  Instructions 

NA 

3.7.6 

Restart/Recovery  Procedures 

3. 7.6.1 

Recovery  Instructions 

3-97 
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CONTROL  CARD  PREPARATION 

For  uh  of  this  form,  in  TB  18-1 11;  the  proponent  agency  i*  CSA. 


3.  RUN  TITLE 

CABS  STAFF  WORKING  REPORTS 


4.  COf  TROL  CARO  ID  6.  CONTROL  CARO  TITLE 

P06AUD-CNTL  P06AUD-CONTROL-CARD 


6.  CONTROL  CARO  PURPOSE  AND  REMARKS 


TO  PROVIDE  PROGRAM  PARAMETER  OPTIONS. 


CONTROL  CARO  INSTRUCTIONS 


PREPARATION  INSTRUCTIONS 


CNTL-iq  1  11 


BAL -TYPE- 
DATA  13  16 


TYPE- 

RUN 


18  21 


22  80 


Constant  "P06AUD-CNTL" 
Blank 


"OMAA"  to  input  budget  data  for  OMA 
only. 

"OMAR"  to  input  budget  data  for  OMAR 
only. 

"SPEC"  to  include  only  specified 
RSN's  (per  Control  File). 

Blank  to  include  all  budget  data 
(OMA  and  OMAR) 

Blank 

"INST"  for  installation  level  runs 
"SOR"  for  MACOM  run  of  status  of 
operating  resources 
Blank  for  MACOM  run  other  than  SOR 

Blank 


Functional 


Functional 

user 


:  :.it. 
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i 

* 

31 


CONTROL  CARD  PREPARATION 

For  un  of  thit  form,  m«  TB1S-111;  the  proponent  agancy  It  CSA. 

1.  DATE  I 

811201 

2.  RUN  ID 

AUDT04 

CABS  STAFF  WORKING  REPORTS 

4.  COr  TROL  CARO  ID 

P08AUD-CNU 

8.  CONTROL  CARO  TITLE  -  " 

P08AUD- CONTROL-CARD 

CL  CONTROL  CARO  PURPOSE  AND  REMARKS  . . -  — " 

To  provide  program  parameter  options. 

7.  USER  INFORMATION,  IF 

REQUIRED 

8. 

CONTROL  CARO  INSTRUCTIONS 

FIELO 
_ A 

POSITION 

_ k  — 

preparation  instructions 

_ £a _ 

RESPONSIBLE 

AGENCY 

CNTL-ID 

1  11 

Constant  "P08AUD-CNTL" 

12 

Blank 

TYPE- 

DATA 

13  16 

"OMAA"  to  prepare  reports  for  OMA. 

"OMAR"  to  prepare  reports  for  OMAR. 

"SPEC"  to  prepare  reports  for 

specified  report  numbers  (per  Control 
"NO  "  to  bypass  preparation  of  Staff 

Work  Reports  in  this  run. 

Blank  will  run  all  data. 

File). 

Functional 

user 

RESTART 

RPT-NR 

17  18 

Blank  for  normal  run. 

Numeric  "01"  thru  "99"  to  start 
output  at  the  report  number  indicated. 

Functional 
or  DPI 
Analyst 

19 

Blank 

PAGE-NR 

CTL 

20 

"0"  If  each  report  is  to  start  as 

Page  1;  otherwise  page  numbers 
will  be  a  continuous  sequence 
through  all  reports. 

Functional 

user 

21  80 

Blank 

K  .  5PC  7733 
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JOB  CONTROL  STATEMENTS  (PROC)  -  OS 

//AUDT04S1  PROC  CYC=C08 
//* 

II  *  ********************************************************* 

//*  *  THIS  PROC  PRODUCES  THE  CABS  STAFF  WORKING  REPORTS  * 

j f-k  ********************************************************* 

//* 

//IEBGEN01  EXEC  PGM=IEBGENER 
//SYSPRINT  DD  SYSOUT=A 

//SYSUT1  DD  DSN=AUD.CABS.&CYC..A0AAUD(0),DISP=OLD 
//SYSUT2  DD  DSN=AUD . CABS . A0AAUD , UNIT=SY$DA, SPACE* ( CYL ,  3 ) , 

//  DI SP=( NEW, PASS) ,DCB=(RECFM=BFS,BLKSIZEs1200,LRECL=120) 

//SYSIN  DD  DUMMY 

//P06AUD02  EXEC  PGM=P06AUD 

//SYSIN  DD  DUMMY, DCB=BLKSIZE=80 

//IA0AAUD  DD  DSN=AUD. CABS. A0AAUD,DISP=(OLD, PASS) 

//IB02AUD  DD  DSN=AUD.CABS.6CYC. .B02AUO(0) ,DISP=OLD 
// WA06AUD  DD  DSN=AUD . CABS . A06AUD , UNI T=S YSDA , SPACE* ( CYL , ( 140 , 10 ) , RLSE ) , 
//  D I SP =(, PASS , DELETE ), DCB = ( RECFM=BFS , BLKS I ZE=3498 , LRECL=106 ) 

//WB06AUD  DD  UNIT*SYSDA,SPACE=(CYL,2) , 

//  DCB=(RECFM=BFS,BLKSIZE=800,LRECL*80) 

//SYSOUT  DD  SYSOUT=A 
//SYSUDUMP  DD  SYSOUT=A 

//P07AUD03  EXEC  PGM=P07AUD,CONO*(1111,EQ) ,TIME*240 
//IA0AAUD  DD  DSN=AUD.CABS.A0AAUD,DISP*(OLD,PASS,KEEP) 

//WA06AUD  DO  DSN=AUD . CABS . A06AUD , DI SP* ( OLD , DELETE , KEEP )  j 

//OA07AUD  DD  DSN=AUD.CABS.&CYC. .A07AUD(+1) ,UNIT*TAPE9, 

//  DCB=(RECFM=BFS,BLKSIZE=1090,LRECL=109) , 

//  DI SP* ( NEW , CATLG , DELETE ) , LABEL=RETPD*14 

//WB07AUD  DD  DSN=AUD.WORKTAPE ,UNIT*(TAPE9, , DEFER) , 

//  DISP*(NEW, DELETE) .LABEL *RETPD*0, 

//  DCB=(RECFM=BFS,BLKSIZE=3498,LRECL*106) 

//WC07AUD  DD  UNIT*SYSDA,SPACE*(CYL, (40,10) , RLSE) , 

//  DCB=(RECFM=BFS,BLKSIZE=3498,LRECL=106) 

//SORTLIB  DD  DSN=$YSl.SORTLIB,DISP*SHR 
//SORTWK01  DD  UNIT=SYS0A,SPACE=(CYL,48,,C0NTIG) 

//SORTWK02  DD  UNIT*SYSDA,SPACE*(CYL,48, .CONTIG) 

//SORTWK03  DD  UNIT *SYSDA, SPACE* ( CYL ,48 , .CONTIG) 

//SORTWK04  DD  UNI T=SYSDA, SPACE* (CVL, 48, .CONTIG) 

//SORTWK05  DD  UNIT=SYSDA,SPACE=(CYL, 48, .CONTIG) 

//SORTWK06  DD  UNIT=SYSDA,SPACE=(CYL, 48, .CONTIG) 

//SYSOUT  DD  SYSOUT=A 
//SYSUDUMP  DD  SYSOUT=A 

//P08AUD04  EXEC  PGM=P08AUD,COND*(1111,EQ) ,TIME*240 

//SYSIN  DD  DUMMY, DCB*BLKSIZE*80 

//IA0AAUD  DO  DS N=AUD. CABS. A0AAUD,DISP=(OLD, DELETE) 

//IA07AUD  DD  DSN=AUD. CABS. &CYC..A07AUD(+1),DISP=(OLD, KEEP) 

//OA08AUD  DD  DS N*AUD. CABS. A08AUD,UNIT*TAPE9,DISP*( NEW, KEEP), 

//  VOL=( ,, ,16) ,DCB*(RECFM*BFS,BLKSIZE=1330,LRECL=133), 

//  LABEL *RETPD=7 

//SYSOUT  DD  SYSOUT=A 
//SYSUDUMP  DD  SYSOUT=A 

Figure  3.7-01 
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JOB  CONTROL  STATEMENT  CARD  DECK  LISTING  -  DOS 


//  JOB  AUDT04  C1D0R  CABS  STAFF  WORK  REPORT  CYC=AOC 

*  JOB  STEP  P06AUD01 

//  TLBL  UIN, 'AOC.A0AAUD' 

//  DLBL  UOUT, 'AAAAUD' ,0,SD 
//  EXTENT  SYS021,WRK1&P, 1,0,20,060, B=1 
//  EXEC  TOYNASN 
//  ASSGN  SYS004, DUMMY 
/* 

//  EXEC  TPDK 

//  UTD  TC, FF, Aa(120, 1200), B*( 120, 1200), IU,OY,Rl,E® (2314) 

//  END 

*  JOB  STEP  P06AUD02 

//  TLBL  IB02AUD , 1 AOC . B02AUD 1  CABS  BUDGET  DATA  AOC 

//  DLBL  IAQAAUD, 'AAAAUD' 

//  EXTENT  SYS021,WRKl&P,l,0,20,l,Bal 

//  DLBL  WA06AUD , 1 A06AUD 1 

//  EXTENT  SYS021,WRK1&P,1,0,20,900,B*1 

//  DLBL  WB06AUD , ' B06AUD 1 

//  EXTENT  SYS021 , WRK1&P ,1,0, 20,040,B*1 

//  EXEC  P06AUD 

/*  PLACE  P06AUD  CONTROL  CARD  BEFORE  THIS  CARD 

*  JOB  STEP  P07AUD03 
//  ASSGN  SYS001 , X 1 DK2 1 

//  TLBL  OA07AUD, 'AOC.A07AUD'  CABS  INTERMEDIATE  FILE  AOC 

//  DLBL  I A0AAUD, 'AAAAUD' 

//  EXTENT  SYS021 , WRK1&P , 1,0, 20,1, BS1 
//  DLBL  WA06AUD, ' A06AUD , D ' 

//  EXTENT  SYS021,WRKHP,1,0,20,1,B«1 
//  DLBL  WB07AUD , ' B07AUD , D ' 

//  EXTENT  SYS021,WRKl&P,l,0,20,900,Bsl 
//  DLBL  WC07AUD , ' C07AUD , D ' 

//  EXTENT  SYS021,WRK1&P, 1,0,20, 400.B-1 
//  DLBL  SORTWK1, ' J07AUD' 

//  EXTENT  SYS001,WRK2&P, 1,0,20, 100,B=1 
//  EXEC  P07AUD 
/* 


Figure  3.7-01 
3-77 


ADSM  18-C1D-AUD-IBM  OM 
1  DEC  81 

JOB  CONTROL  STATEMENT  CARD  DECK  LISTING  -  DOS  (CONTINUED) 


*  JOB  STEP  P08AUD04 

//  TLBL  IA07AUD, 'AOC.A07AUD'  CABS  INTERMEDIATE  FILE  AOC 

//  DLBL  IA0AAUD, 'AAAAUD' 

//  EXTENT  SYS021,WRK1&P,1, 0,20,040, B=1 
//  DLBL  OA08AUD , 1 A08AUD , D 1  PRINTFILE 

//  EXTENT  SYS021.WRK1&P, 1,0, 20,1, B=1 
//  TLBL  OY08AUD, 'Y08AUD'  SPOOL  OUTPUT 

//  EXEC  TDYNASN 
OPEN  OY08AUD.SYS013, OUTPUT 
/* 

//  EXEC  P08AUD 

/*  PLACE  P08AUD  CONTROL  CARD  BEFORE  THIS  CARD 

//  EXEC  TDYNASN 
CLOSE  OY08AUD.SYS013, OUTPUT 
/* 

CLOSE  SYS013 
/* 

//  DLBL  IA0AAUD,' AAAAUD' 

//  EXTENT  SYS021.WRK1&P, 1,0,20,1,8=1 
//  DLBL  WB06AUD , 1 B06AUD 1 
//  EXTENT  SYS021 , WRK1&P , 1 , 0 , 20 , 1 , Ba 1 
//  DLBL  OA08AUD, 1 A08AUD,D'  PRINTFILE 
//  EXTENT  SYS021.WRKHP,  1,0, 20,1, B*=l 
//  EXEC  ADASD 
/* 

/& 
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JOB  CONTROL  STATEMENT  CARD  DECK  LISTING  -  DOS  (CONTINUED) 


//  JOB  AUDT04  C1D0R  CABS  STAFF  WORK  REPORT  CYC=COB 

*  JOB  STEP  P06AUD01 

//  TLBL  UIN, 'COB.A0AAUD' 

//  DLBL  UOUT, 'AAAAUD' ,0,SD 

//  EXTENT  SYS021,WRK1&P,1, 0,20,060, B=1 

//  EXEC  TDYNASN 

//  ASSGN  SYS004, DUMMY 

/* 

//  EXEC  TPDK 

//  UTD  TC,FF,A=(120,1200) ,B=(120,1200) ,IU,0Y,R1,E=(2314) 

//  END 

*  JOB  STEP  P06AUD02 

//  TLBL  IB02AUD, 'COB.B02AUD'  CABS  BUDGET  DATA  COB 

//  DLBL  IAOAAUD, 'AAAAUD' 

//  EXTENT  SYS021.WRK1&P, 1,0,20,1, B=1 

//  DLBL  WA06AUD , 1 A06AUD 1 

//  EXTENT  SYS021,WRK1&P,1,0,20,900,B=1 

//  DLBL  WB06AUD , 1 B06AUD 1 

//  EXTENT  SYS021,WRK1&P, 1,0, 20,040, BS1 

//  EXEC  P06AUD 

/*  PLACE  P06AUD  CONTROL  CARD  BEFORE  THIS  CARD 

*  JOB  STEP  P07AUD03 
//  ASSGN  SYS001 , X ' DK2 1 

//  TLBL  OA07AUD, 1  COB . A07AUD 1  CABS  INTERMEDIATE  FILE  COB 

//  DLBL  IA0AAUD,' AAAAUD' 

//  EXTENT  SYS021,WRKl&P,l,0,20,l,Bsl 
//  DLBL  WA06AUD , ' A06AUD , D ' 

//  EXTENT  SYS021,WRKl&P,l,0,20,l,Bsl 
//  DLBL  WB07AUD, *B07AUD,D' 

//  EXTENT  SYS021,WRKl&P,l,0,20,900,Bsl 
//  DLBL  WC07AUD, ' C07AUD.D ' 

//  EXTENT  SYS021,WRK1&P, 1,0, 20,400,8=1 

//  DLBL  SORTWK1 , ' J07AUD 1 

//  EXTENT  SYS001,WRK2&P,1,0,20,100,B=1 

//  EXEC  P07AUD 

/* 
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JOB  CONTROL  STATEMENT  CARD  DECK  LISTING  -  DOS  (CONTINUED) 


*  JOB  STEP  P08AUD04 

//  TLBL  IA07AUD, 'COB.A07AUD'  CABS  INTERMEDIATE  FILE  COB 

//  DLBL  IA0AAUD, 'AAAAUD' 

//  EXTENT  SYS021.WRK1&P ,1,0, 20,040, B-l 
//  DLBL  OA08AUD, 'A08AUD,D‘  PRINTFILE 

//  EXTENT  SYS021,WRK1&P,1,0,20,1,B=1 
//  TLBL  OY08AUD, ' Y08AUD 1  SPOOL  OUTPUT 

//  EXEC  TDYNASN 
OPEN  OY08AUD.SYS013, OUTPUT 
/* 

//  EXEC  P08AUD 

/*  PLACE  P08AUD  CONTROL  CARD  BEFORE  THIS  CARD 

//  EXEC  TDYNASN 
CLOSE  OY08AUD,SYS013, OUTPUT 
/* 

CLOSE  SYS013 
/* 

//  DLBL  IA0AAUD, 'AAAAUD' 

//  EXTENT  SYS021,WRK1&P,1,0,20,1,B=1 
//  DLBL  WB06AUD , ' B06AUD ' 

//  EXTENT  SYS021,WRK1&P,1,0,20,1,B=1 
//  DLBL  OA08AUD, 'A08AUD.D'  PRINTFILE 
//  EXTENT  SYS021 .WRKl&P ,1 ,0,20,1 ,BS1 
//  EXEC  ADASD 
/* 

/& 
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JOB  CONTROL  STATEMENT  CARD  DECK  LISTING  -  DOS  (CONTINUED) 


//  JOB  AUDT04  C1D0R  CABS  STAFF  WORK  REPORT  CYC=OBL 

*  JOB  STEP  P06AUD01 

//  TLBL  UIN, 'OBL.A0AAUD1 

//  DLBL  UOUT, 'AAAAUD' ,0,SD 

//  EXTENT  SYS021, WRKl&P, 1,0, 20, 060, B=1 

//  EXEC  TDYNASN 

//  ASSGN  SYS004, DUMMY 

/* 

//  EXEC  TPDK 

//  UTD  TC,FF,A=(120,1200) ,B=(120,1200) ,IU,OY,Rl,E=(2314) 

//  END 

*  JOB  STEP  P06AUD02 

//  TLBL  IB02AUD, 'OBL.B02AUD'  CABS  BUDGET  DATA  OBL 

//  DLBL  IAOAAUD,' AAAAUD' 

//  EXTENT  SYS021.WRK1&P, 1,0, 20,1, B=1 
//  DLBL  WA06AUD, 'A06AUD' 

//  EXTENT  SYS021.WRK1&P, 1,0,20, 900,B=1 
//  DLBL  WB06AUD , 1 B06AUD 1 
//  EXTENT  SYS021 .WRKl&P ,1 ,0,20,040, B=1 
//  EXEC  P06AUD 

/*  PLACE  P06AUD  CONTROL  CARD  BEFORE  THIS  CARD 

*  JOB  STEP  P07AUD03 
//  ASSGN  SYS001,X'DK2' 

//  TLBL  OA07AUD , 1 OBL . A07AUD 1  CABS  INTERMEDIATE  FILE  OBL 

//  DLBL  IA0AAUD, 'AAAAUD' 

//  EXTENT  SYS021.WRK1&P.1, 0,20,1, B=1 
//  DLBL  WA06AUD, 'A06AUD,D‘ 

//  EXTENT  SYS021, WRKl&P, 1,0,20,1, B=1 
//  DLBL  WB07AUD , ' B07AUD , D ' 

//  EXTENT  SYS021, WRKl&P, 1,0, 20, 900, B=1 
//  DLBL  WC07AUD, 'C07AUD,D' 

//  EXTENT  SYS021, WRKl&P, 1,0, 20, 400, B=1 
//  DLBL  SORTWK1, ' J07AUD' 

//  EXTENT  SYS001,WRK2&P,l,0,20,100,Bsl 
II  EXEC  P07AUD 
/* 


Figure  3.7-01 


\rw‘V"  .  •  .  »  ,*»  ri 


ADSM  18-C10-AUD-IBM  OM 
1  OEC  81 


r 


JOB  CONTROL  STATEMENT  CARD  DECK  LISTING  -  DOS  (CONTINUED) 


*  JOB  STEP  P08AUD04 

//  TLBL  IA07AUD, 1 OBL . A07AUD 1  CABS  INTERMEDIATE  FILE  OBL 

//  DLBL  IA0AAUD, ‘AAAAUD1 
//  EXTENT  SYS021,WRK1&P,1,0,20,040,B=1 
//  DLBL  OA08AUD , 1 A08AUD , D 1  PRINTFILE 

//  EXTENT  SYS021,WRK1&P,1,0,20,1,B=1 
//  TLBL  OY08AUD, ‘Y08AUD*  SPOOL  OUTPUT 

//  EXEC  TDYNASN 
OPEN  OY08AUD.SYS013, OUTPUT 
/* 

//  EXEC  P08AUD 

/*  PLACE  P08AUD  CONTROL  CARD  BEFORE  THIS  CARD 

//  EXEC  TDYNASN 
CLOSE  OY08AUD.SYS013, OUTPUT 
/* 

CLOSE  SYS013 
/* 

//  DLBL  IA0AAUD,' AAAAUD' 

//  EXTENT  SYS021,WRK1&P,1, 0,20,1, B*1 
//  DLBL  WB06AUD, 'B06AUD' 

//  EXTENT  SYS021,WRK1&P,1, 0,20,1, B=1 
//  DLBL  OA08AUD , ' A08AUD , D 1  PRINTFILE 

//  EXTENT  SYS021,WRK1&P,1,0,20,1,B=1 
//  EXEC  ADASD 
/* 

/& 
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JOB  CONTROL  STATEMENT  CARD  DECK  LISTING  -  DOS  (CONTINUED) 


//  JOB  AUDT04  C1D0R  CABS  STAFF  WORK  REPORT  CYC=SOR 

*  JOB  STEP  P06AUD01 

//  TLBL  UIN, 'SOR.A0AAUD' 

//  DLBL  UOUT, 'AAAAUD' ,0,SD 

//  EXTENT  SYS021.WRK1&P, 1,0, 20,060, B=1 

//  EXEC  TDYNASN 

//  ASSGN  SYS004, DUMMY 

/* 

//  EXEC  TPDK 

//  UTD  TC,FF,A=( 120, 1200) ,B=( 120,1200) ,IU,OY ,R1,E=(2314) 

//  END 

*  JOB  STEP  P06AUD02 

//  TLBL  IB02AUD, 'SOR.B02AUD1  rABS  BUDGET  DATA  SOR 

//  DLBL  IAOAAUD, 'AAAAUD' 

//  EXTENT  SYS021.WRK1&P, 1,0,20,1,8=1 
//  DLBL  WA06AUD, ' A06AUD ' 

//  EXTENT  SYS021,WRK1&P,1,0,20,900,B=1 
//  DLBL  WB06AUD , ' B06AUD ' 

//  EXTENT  SYS021,WRK1&P, 1,0, 20,040,8*1 
//  EXEC  P06AUD 

/*  PLACE  P06AUO  CONTROL  CARD  BEFORE  THIS  CARD 

*  JOB  STEP  P07AUD03 
//  ASSGN  SYS001,X'DK2' 

//  TLBL  OA07AUD, 'SOR.A07AUD'  CABS  INTERMEDIATE  FILE  SOR 

//  DLBL  IA0AAUD,' AAAAUD' 

//  EXTENT  SYS021,WRK1&P,1,0,20,1,B=1 
//  DLBL  WA06AUD , ' A06AUD , D ' 

//  EXTENT  SYS021,WRK1&P, 1,0, 20,1, B=1 
//  DLBL  WB07AUD, 'B07AUD,D' 

//  EXTENT  SYS021 , WRKl&P , 1 , 0 , 20 , 900 , B=1 
//  DLBL  WC07AUD , ' C07AUD , D ' 

//  EXTENT  SYS021.WRK14P, 1,0, 20,400,8=1 
//  DLBL  SORTWK1 , ' J07AUO ' 

//  EXTENT  SYS001.WRK2&P, 1,0,20,100, B=1 
//  EXEC  P07AUD 
/* 
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JOB  CONTROL  STATEMENT  CARD  DECK  LISTING  -  DOS  (CONTINUED) 


*  JOB  STEP  P08AUD04 

//  TLBL  IA07AUD, 'SOR.A07AUD'  CABS  INTERMEDIATE  FILE  SOR 

//  DLBL  IA0AAUD, 'AAAAUD' 

//  EXTENT  SYS021,WRK1&P,1,0,20,040,B=1 
//  DLBL  OA08AUD, 'A08AUD.D1  PRINTFILE 

//  EXTENT  SYS021.WRK1&P, 1,0,20,1,8=1 
//  TLBL  OY08AUD, 'Y08AUD'  SPOOL  OUTPUT 

//  EXEC  TDYNASN 
OPEN  OY08AUD.SYS013, OUTPUT 
/* 

//  EXEC  P08AUD 

/*  PLACE  P08AUD  CONTROL  CARD  BEFORE  THIS  CARD 

//  EXEC  TDYNASN 
CLOSE  OY08AUD , SYS013 , OUTPUT 
/* 

CLOSE  SYS013 
/* 

//  DLBL  I A0AAUD,' AAAAUD* 

//  EXTENT  SYS021.WRK1&P, 1,0,20,1,8=1 

//  DLBL  WB06AUD , 1 B06AUD 1 

//  EXTENT  SYS021,WRKliP, 1,0, 20,1,8*1 

//  DLBL  OA08AUD, 'A08AUD,D'  PRINTFILE 

//  EXTENT  SYS021,WRK14P, 1,0,20,1,8*1 

//  EXEC  ADASD 

/* 

/& 
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JOB  CONTROL  STATEMENT  (RETRIEVAL)  -  OS 


RUN  ID:  AUDT04 

RUN  NAME:  CABS  STAFF  WORKING  REPORT 


NORMAL  RUN 


•* 

//AUDT04  JOB  (accounting  Information) 

//AUDT0401  EXEC  AUDT04S1,CYC=XXX 

(See  Note  2) 

//P06AUD02.SYSIN  DD  * 

P06AUD-CNTL 

(user  control  card  options) 

//P06AUD02. IB02AUD  DD  DSN=AUD.CABS.&CYC. .B09AUD(0)  *omit  if  station 

//P08AUD04.SYSIN  DD  * 

P08AUD-CNTL 

(user  control  card  options) 

/* 

// 


STEP  RESTART  AT  PROGRAM  P08AUD 

//AUDT04  JOB  (accounting  Information) ,RESTART=AUDT0401.P08AUD04 
//AUDT0401  EXEC  AUDT04S1,CYC=XXX  (See  Note  2) 

//P08AUD04.SYSIN  DD  * 

P08AUD-CNTL  (user  control  card  options) 

/* 

//P08AUD04 . IA0AAUD  DD  DSN-AUD.CABS.&CYC. .A0AAUD(0),UNIT=TAPE9,DISP=(OLD,KEEP) 
//P08AUD04 . IA07AUD  DD  DSN=AUD . CABS . &CYC . . A0AAUD( 0) , UNIT=TAPE9 , DI SP* ( OLD , KEEP ) 
// 

NOTE  1:  See  Control  Card  Format  of  "P08AUD-CNTL"  Reference  use  of 
Restart  Report  Number  (RESTART-RPT-NR) . 


NOTE  2:  On  EXEC  Card,  substitute  for  XXX  the  appropriate  value  to 
Indicate  type  of  run: 

COB,  AOC,  ORL,  SOR 
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AUDT04 


RUN  MESSAGES  AND  RESPONSES 

For  um  of  this  form,  m  TB  18-111;  th«  proponent  agancy  it  CSA. 
%  RUN  TITLE 

CABS  STAFF  WORKING  REPORTS 


MESSAGE  DISPLAYED 


|1.  DATE 


811201 


CONSOLE  MESSAGES: 


SAME  AS  SYSOUT/SYSLST 
SYSOUT/SYSLST  MESSAGES: 


P06AUD  01  H  NO  RSNS  FOR  SPECIAL 


P06AUD  02  H  NO  MATCHING  RSNS  FOR 
SPECIAL 


P06AUO  11  H  CTL  CARD  INVALID 


P07AUD  01  W  NO  TYPE  L  RCD  FOR  THIS 
TYPE  M  RCD 

THIS  TYPE  M  RCD  EXCLUDED:  value 
P07AUD  02  H  TYPE  M  RCDS  EXCEED  LIMIT 


P07AUD  03  H  INVALID  SORT 


ACTION  REQUIRED 


The  special  staff  work  report  option 
is  invoked  by  the  control  card  and 
there  are  no  RSN  codes  on  the  RSN 
parameter  record.  The  run  is  stopped. 
Notify  the  CABS  analyst. 

The  special  staff  work  report  option 
is  invoked  by  the  control  card  and 
the  RSN  codes  in  the  budget  data  do 
not  match  the  RSN  codes  in  the  RSN 
parameter  record.  The  run  is 
stopped. 

Notify  the  CABS  analyst. 

Control  card  accepted -from  SYSIN  is 
missing  or  invalid.  Correct  and 
restart. 

Processing  continues:  however,  the 
CABS  analyst  must  be  notified  of  the 
unmatched  condition. 

The  type  M  control  records  exceed 
limit  established  in  the  users 
manual,  update  the  control  file.  The 
run  is  stopped.  Notify  the  CABS 
analyst. 

The  sort  failed  for  an  unknown  reason. 
Determine  the  cause  for  the  failure, 
correct  and  restart  the  run. 


ADSM  18-C1D-AUD-IBM  OM 
1  DEC  81 


RUN  MESSAGES  AND  RESPONSES 

For  mi  of  thl«  form,  «—  TB  16-111;  th«  propon>nt  «9»ncy  It  C8A. _ 

13.  RUN  TITLE 

CASS  STAFF  WORKING  REPORTS  (CONTINUED) 


II.  DATE 


811201 


MESSAGE  DISPLAYED 


ACTION  REQUIRED 


P07AUD  11  H  NO  INPUT  RECORDS 


P07AUD  11  H  CNTL  RECORD  MISSING 


P08AUD  02  H  RESTART  REPORT  NUMBER 
NOT  FOUND 


P08AUD  03  H  TYPE  D  RCDS  EXCEED  LIMIT 


P08AUD  04  H  TYPE  K  RCDS  EXCEED  LIMIT 


P08AUD  05  H  TYPE  L  RCDS  EXCEED  LIMIT 


No  records  found  on  input  file  (from 
P06AUD).  Determine  cause  and  restart 
the  run. 

The  first  input  record  (from  P06AUD) 
is  not  a  valid  'CONTROL  CARD*  record. 
Determine  the  cause  and  restart 
the  run. 

The  report  control  number  in  the 
control  card  does  not  match  a  report 
control  number  in  the  input  data. 

The  run  is  stopped.  Notify  the  CABS 
analyst. 

The  type  D  control  records  exceed 
limit  established  in  the  users 
manual  documentation.  Update  the 
control  file.  The  run  is  stopped. 
Notify  the  CABS  analyst. 

The  type  K  control  records  exceed 
limit  established  in  the  users 
manual.  Update  the  control  file. 

The  run  is  stopped.  Notify  the 
CABS  analyst. 

The  type  L  control  records  exceed 
limit  established  in  the  users 
documentation.  Update  the  control 
file.  The  run  is  stopped. 

Notify  the  CABS  analyst. 


la.  remarks 


FORM 
I  NOV  7S 
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RUN  MESSAGES  AND  RESPONSES  1  DATE 

For  uh  of  thto  form,  •••  TB  18-111;  the  proponent  agancy  It  CSA.  811201 

13.  RUN  TITLE 

_  CABS  STAFF  WORKING  REPORTS  (CONTINUED) _ 

MESSAGE  DISPLAYED  IT  ACTION  REQUIRED 


P08AUD  06  W  NO  TYPE  D  CTL  RCD  FOR 
RSN  XXX.  COMMAND  CODE  YYY 


None,  processing  continues. 


P08AUD  07  W  NO  TYPE  K  CTL  RCD  FOR 
RSN  XXX.  COMMAND  CODE  YYY 


None,  processing  continues. 


P08AUD  08  W  NO  TYPE  L  CTL  RCD  FOR 
THIS  DATA  RCD  value 


P08AUD  11  H  INVALID  CTL  CARD 


Processing  continues:  however,  this 
record  is  excluded  from  the  staff 
working  reports. 

Control  card  accepted  from  SYSIN  is 
missing  or  invalid;  correct  and 
restart  the  run. 


16.  REMARKS 


FORM 
1  NOV  78 


Figure  3.7-01 
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AU0T04 


CABS  STAFF  WORK  IN 


* n  w;  ;t  km  c tdin  h  :  1 1 1  a  ill 


MUTUALLY 

EXCLUSIVE 


/B09AUD  \ 

/B02AUD  \ 

(  BDGT  DATA) 

I  BDGT  DATA! 

V  CONSOL I-  j 

i  STA  LEVEL  j 

\DATI0N  1  J 

P06AUD 

CABS  T-TOTAL 
RECORD  GENERATOR 
FOR  SWR 


mi 


POBM 
1  NOV  7* 
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1  LOGIC  CHART 

1  For  uu  of  thl*  form,  mo  TB  18-111;  tho  proponont  ogoncy  It  CSA. 

1.  DATE  | 

811201 

X  ID 

AUDT04 

3.  TITLE - - - 

CABS  STAFF  WORKING  REPORTS  (CONTINUED) 

FORM 
1  NOV  7t 
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3.8  Run  Description  AUDT05.  Reference  Figure  3.8-01 

INDEX  FOR  FIGURE  3.8-01 


NAME 

PAGE  NO. 

3.8.1 

Control  Inputs 

3. 8. 1.1 

Control  Cards 

3-100 

3.8. 1.2 

Control  Input  Statements 

NA 

3. 8. 1.2.1 

Job  Control  Statements  (PROC) 

3-101  thru  3-103 

3.8. 1.2. 2 

Job  Control  Statements  (RETRIEVAL) 

3-104 

3.8.2 

Management  Information 

3.8. 2.1 

Run  Setup-Console  Operating 

Information 

3-105 

3.8. 2. 2 

Run  Messages  and  Responses 

3-106 

3.8. 2. 3 

Logic  Chart 

3-107 

3.8.3 

Input-Output  Files 

See  DA  Form  4744 
for  the  I/O  File 
Information 

3.8.4 

Output  Reports 

NA  - 

3.8.5 

Reproduced  Output  Reports 

3.8. 5.1 

Reproduced  Output  Reports 

NA 

3.8. 5. 2 

PCM  Processing  Instructions 

NA 

3.8.6 

Restart/Recovery  Procedures 

3. 8. 6.1 

Recovery  Instructions 

3-108 

3-99 


Bl 


1  CONTROL  CARD  PREPARATION  1  DATE 

j  For  uh  of  thl*  lorm,  im  TB18-111;  th«  proponent  »#«ncy  ii  CSA.  »  olltUl 

2.  RUN  ID 

AUDT05 

3.  RUN  TITLE 

CABS  CONSOLIDATION 

4.  COt  TROL  CARO  ID 

P09AUD-CNTL 

5.  CONTROL  CARO  TITLE 

P09AUO- CONTROL  CARD 

a.  CONTROL  CARD  PURPOSE  AND  REMARKS 

To  provide  program  parameter  options. 

7.  USER  INFORMATION,  IF  REQUIRED 

CONTROL  CARD  INSTRUCTIONS 

1 

PREPARATION  INSTRUCTIONS 

_ _ c.  - - - — 

CNTL-ID 

1  11 

Constant  "P09AUD-CNTL" 

12 

Blank 

RUN- 

LEVEL 

13  17 

"INSTL"  to  consolidate  data  by  first 
two  positions  of  station  cbde  (for 
use  in  installation  rubs). 

"MACOM"  to  consolidate  data  for  the 
command  (blanking  station  codes) 
for  MACOM  runs. 

Functional 

user 

18 

Blank 

CMD-RQMT- 

CTL 

19  22 

"OMIT"  to  omit  from  output  those 
records  with  "1"  in  Coimand- 
Requirement-Code;  else  "KEEP". 

Functional 

user 

23  80 

Blank 
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JOB  CONTROL  STATEMENTS  (PROC)  -  OS 


//AUDT05S1  PROC  CYC-COB 
//* 

II *  **************************************************************** 

//*  *THIS  PROC  CONSOLIDATES  BUDGET  DATA  AT  INSTALLATION  LEVEL  BY  * 
//*  *2-POS  STATION  CODE,  OR  AT  MACOM  LEVEL  WITH  NO  STATION  CODE  * 

II*  **************************************************************** 

II* 

//P09AUD01  EXEC  PGM=P09AUO 
//SYS IN  DD  DUMMY 

//IB02AUD  DO  DSN*AUD . CABS . &CYC . . B02AUD( 0) , DI SP=OLD 
//OB09AUD  DD  DSN*AUD . CABS .4CYC . . B09AUD( +1 ) , UNI T-TAPE9 , 

//  DISP=(,CATLG, DELETE), 

//  DCBS ( RECFM»BFS , BLKS I ZE=800, LRECL»80 ) ,LABEL=RETPD=365 

//WC09AUD  DD  UNIT =SYSDA , SPACEs ( C YL , ( 50, 2 ) ,RLSE ) , 
DCB«(RECFM=BFS,8LKSIZE=1680,LRECL=80) 

//SORTLIB  DD  DSN=SYSl.SORTLIB,DISP=SHR 
//SORTWK01  DD  UNIT=SYSDA,SPACE*(CYL,20,,CONTIG) 

//SORTWK02  DD  UNIT*SYSDA,SPACE=(CYL,20,,CONTIG) 

//SORTWK03  DD  UNIT=SYSOA,SPACE*(CYL,20,,CONTIG) 

// SYSOUT  DO  SYSOUT=A 
//SYSUDUMP  DO  SYSOUT«A 
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JOB  CONTROL  STATEMENT  CARD  DECK  LISTING  -  DOS 


//  JOB  AUDT05  C1D0R  CABS  CONSOLIDATION  CYC»AOC 

/*  JOB  STEP  P09AUD01 

//  ASSGN  SYS001,X'DK2'  SORTWORK 

//  TLBL  IB02AUD, 'AOC.B02AUD'  CABS  BUDGET  DATA  AOC 

//  TLBL  OB09AUD , 1 AOC . B09AUD 1  CABS  BUDGET  DATA  CONSOLIDATED  AOC 

//  DLBL  WC09AUD, 'C09AUD,D‘ ,0,SD 

//  EXTENT  SYS023.WRK1&P, 1,0, 20,100, B*1 

//  DLBL  SORTWK1, ' J02AUD' ,0,SD 

//  EXTENT  SYS001.WRK2&P, 1,0, 20,100, B*1 

//  EXEC  P09AUD 

/*  PLACE  P09AUD  CONTROL  CARD  BEFORE  THIS  CARO 
/& 


//  JOB  AUDT05  C1D0R  CABS  CONSOLIDATION  CYC=CQ8 

/*  JOB  STEP  P09AUD01 

//  ASSGN  SYS001,X'DK2'  SORTWORK 

//  TLBL  I B02AUD , 1  COB . B02AUD 1  CABS  BUDGET  DATA  COB 

//  TLBL  OB09AUD , 1  COB . B09AUD 1  CABS  BUDGET  DATA  CONSOLIDATED  COB 

//  DLBL  WC09AUD, 'C09AUD,D' ,0,SD 

//  EXTENT  SYS023,WRK1&P,1,0,20,100,B=1 

//  DLBL  SORTWK1 , 1 J02AUD 1 ,0,SD 

//  EXTENT  SYS001.WRK2&P, 1,0,20, 100, B=1 

//  EXEC  P09AUD 

/*  PLACE  P09AUD  CONTROL  CARD  BEFORE  THIS  CARD 

/& 


//  JOB  AUDT05  C1D0R  CABS  CONSOLIDATION  CYC=OBL 

/*  JOB  STEP  P09AUD01 

//  ASSGN  SYS001,X'DK2'  SORTWORK 

//  TLBL  IB02AUD, 'OBL.B02AUD'  CABS  BUDGET  DATA  OBL 

//  TLBL  OB09AUD , ' OBL . B09AUD 1  CABS  BUDGET  DATA  CONSOLIDATED  OBL 

//  DLBL  WC09AUD, 'C09AUD,D' ,0,SD 

//  EXTENT  SYS023,WRKl&P,l,0,20,100,Bsl 

//  DLBL  SORTWK1, ' J02AUD' ,0,SD 

//  EXTENT  SYS001 ,WRK2&P,1 ,0,20, 100, BS1 

//  EXEC  P09AUD 

/*  PLACE  P09AUD  CONTROL  CARD  BEFORE  THIS  CARD 

/& 
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JOB  CONTROL  STATEMENT  CARD  DECK  LISTING  -  DOS  (CONTINUED) 


//  JOB  AUDT05  C1D0R  CABS  CONSOLIDATION  CYC-SOR 

/*  JOB  STEP  P09AUD01 

1 1  ASSGN  SYS001,X,DK2'  SORTWORK 

//  TLBL  I B02AUD , ' SOR . B02AUD '  CABS  BUDGET  DATA  SOR 

//  TLBL  OB09AUD, 'SOR.B09AUD'  CABS  BUDGET  DATA  CONSOLIDATED  SOR 

//  DLBL  WC09AUD , • C09AUD , D ' , 0 , SD 

//  EXTENT  SYS023,WRK1&P,1, 0,20,100, B=1 

//  DLBL  SORTWK1, 1 J02AUD* ,0,SD 

//  EXTENT  SYS001,WRK2&P,1, 0,20,100, B=1 

//  EXEC  P09AUD 

/*  PLACE  P09AUD  CONTROL  CARD  BEFORE  THIS  CARD 

/& 
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5 

JOB  CONTROL  STATEMENT  (RETRIEVAL)  -  OS 


9 

I 


RUN  ID:  AUDT05 

RUN  NAME:  CABS  CONSOLIDATION 

//AUDT05  JOB  (accounting  information) 

//AUDT0501  EXEC  AUDT05S1.CYC-XXX  (See  Note  1) 

//P09AUD01.SYSIN  DD  * 

P09AUD-CNTL  (user  control  card  options) 

/* 

// 


NOTE  1:  On  EXEC  Card,  substitute  for  XXX  the  appropriate  value  to 
indicate  type  of  run: 

COB,  AOC,  OBL,  SOR 


r  - 

Figure  3.8-01 
3-104 


Figure  3.8-01 
3-105 


-WHO  kilWM  1.NIUJH.O  '! 


ADSM  18-C1D-AUD-IBM  OM 
1  DEC  81 


AUDT05 


RUN  MESSAGES  AND  RESPONSES 

For  UM  of  thl*  form,  ***  TB  18*111;  tho  proponent  agancy  li  CSA. 


3.  RUN  TITLE 

CABS  CONSOLIDATION 


MESSAGE  DISPLAYED 


|1.  DATE 


811201 


ACTION  REQUIRED 


CONSOLE  MESSAGES: 


SAME  AS  SYSOUT/SYSLST 
SYSOUT/SYSLST  MESSAGES: 


P09AUD  01  H  INVALID  SORT 


P09AUD  02  H  NO  INPUT  RCDS 


P09AUD  11  H  CNTL  CARD  INVALID 


The  sort  failed  for  an  unknown  reason. 
Determine  the  cause  for  the  failure, 
correct  and  restart  the  run. 

There  are  no  budget  data  records  on 
the  input  file.  The  run  is  stopped. 
Notify  the  CABS  analyst. 

Control  card  accepted  from  SYSIN  is 
missing  or  invalid;  correct  and 
restart  the  run. 
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jP  RECOVERY  INSTRUCTIONS 

1  For  un  of  thlt  form,  mo  TB  IB-111;  the  proponent  agency  ia  CSA. 

1.  DATE  | 

811201  1 

2.  RUN  IO 

AUDT05 

3.  RUN  TITLE 

CABS  CONSOLIDATION 

4.  IO  CODE 

S.  RECOVERY  INSTRUCTIONS 

P09AUD01 

Restart  with  the  original  input  and  JCL  setup. 

6.  REMARKS 

DA  ,£RvM,.  4751 

Figure  3.8-01 
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3.9  Run  Description  AUDT06.  Reference  Figure  3.9-01 

INDEX  FOR  FIGURE  3.9-01 


NAME 

PAGE  NO. 

3.9.1 

Control  Inputs 

3- 9. 1.1 

Control  Cards 

3-110  thru  3-114 

3. 9. 1.2 

Control  Input  Statements 

NA 

3. 9. 1.2.1 

Job  Control  Statements  (PROC) 

3-115  thru  3-119 

3. 9. 1.2. 2 

Job  Control  Statements  (RETRIEVAL) 

3-120 

3.9.2 

Management  Information 

3. 9. 2.1 

Run  Setup-Console  Operating 

Information 

3-121 

3. 9. 2. 2 

Run  Messages  and  Responses 

3-122  thru  3-123 

3. 9. 2. 3 

Logic  Chart 

3-124 

3.9.3 

Input-Output  Files 

See  DA  Form  4744 
for  the  I/O  File 
Information 

3.9.4 

Output  Reports 

3-125 

3.9.5 

Reproduced  Output  Reports 

3. 9. 5.1 

Reproduced  Output  Reports 

NA 

3. 9. 5. 2 

PCM  Processing  Instructions 

NA 

3.9.6 

Restart/Recovery  Procedures 

3. 9. 6.1 

Recovery  Instructions 

3-126 

4 
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CONTROL  CARD  PREPARATION 

For  um  of  this  form,  tee  TB  18*111;  the  proponent  agency  it  CSA. 

1.  DATE 

811201 

2.  RUN  ID 

3.  RUN  TITLE 

AUDT06 

CABS  AUTODIN 

4.  COf  TROL  CARD  ID 

5.  CONTROL  CARO  TITLE 

P10AUD-CNTL01 

P10AUD-CONTROL  CARD 

6.  CONTROL  CARD  PURPOSE  AND  REMARKS 


To  provide  program  parameter  options. 


7.  USER  INFORMATION,  IF  REQUIRED 

Control  cards  #01  thru  06  may  be  entered  in  any  sequence.  Repetitive  Fields 
on  cards  3  thru  6  may  be  entered  in  any  sequence.  Only  cards  1,  4,  and  5  are 
required  to  complete  a  run. 


8 

CONTROL  CARO  INSTRUCTIONS 

- 1 

■MM 

PREPARATION  INSTRUCTIONS 

•  , 

■1 

c. 

CNTL-ID 

1-13 

Constant  ,,P10AUD-CNTL01H 

14 

Blank 

FY 

15-16 

Fiscal  Year 

Functional 

User 

17 

Blank 

RPT- 

18-21 

Report  Type  Ex:  COB,  SOR 

Functional 

TYPE 

User 

22 

Blank 

AS-0F- 

23-31 

As  of  Date  Ex:  31  Oct  81 

Functional 

DATE 

j 

User 

32 

Blank 

OUTPUT 

33 

Enter  "C"  or  "T"  for  output  media 

Functional 

C  =  Cards 

User 

T  =  Tape 

34-80 

_ ; 

Blank 

DA 


FORM 
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4743 
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CONTROL  CARD  PREPARATION 

For  uh  of  thl«  form,  <m  T8  18-1 1 1 ;  the  proponent  agency  It  CSA. 


1.  OATE 


811201 


2.  RUN  ID 

AUDT06 


3.  RUN  TITLE 

CABS  AUTODIN 


4.  COf  TROL  CARO  ID 

P10AUD-CNTL03 


6.  CONTROL  CARD  TITLE 

P10AUD-STATION-SELECT-CARD 


6.  CONTROL  CARO  PURPOSE  AND  REMARKS 

To  select  station  codes  to  be  sent  via  autodin. 


7.  USER  INFORMATION,  IF  REQUIRED 

Enter  from  1  to  4  station  codes  to  be  selected.  If  left  blank  or  omitted  all 
station  codes  will  be  selected. 


t _ 

CONTROL  CARD  INSTRUCTIONS 

- — 3 

wsm 

PREPARATION  INSTRUCTIONS 

c. 

CNTL-ID 

1-13 

Constant  "P10AUD-CNTL03" 

14 

Blank 

SELECTED 

15-17 

Station  Code  #1  Ex:  16  Left  Justified 

Functional 

STATION 

User 

#1 

18 

Blank 

SELECTED 

19-21 

Station  Code  #2  Ex:  83  Left  Justified 

Functional 

STATION 

User 

#2 

22 

B 1  ank 

SELECTED 

23-25 

Station  Code  #3 

Functional 

STATION 

User 

#3 

26 

Blank 

SELECTED 

27-29 

Station  Code  #4 

Functional 

User 

30-80 

Blank 

DA 


FORM 
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CONTROL  CARD  PREPARATION 

For  um  of  thl«  form,  see  TB  18-1 11;  the  proponent  agency  is  CSA. 

1.  DATE 

811201 

2.  RUN  ID 

3.  RUN  TITLE 

AUDT06 

CABS  AUTODIN 

4.  COC  TROL  CARO  ID 

5.  CONTROL  CARD  TITLE 

P10AUD-CNTL04 

P10AUD-ROUTING-INDICATOR-CARD 

6.  CONTROL  CARO  PURPOSE  AND  REMARKS 

Used  to  supply  program  with  Autodin  Routing  Indicators  and  Command 

Codes  to 

be  selected. 

7.  USER  INFORMATION,  IF  REQUIRED 

CONTROL  CARD  INSTRUCTIONS 

PREPARATION  INSTRUCTIONS 

RESPONSIBLE 

AGENCY 

c. 

_ d. 

CNTL-ID 

1-13 

Constant  ,,P10AUD-CNTL04'' 

14 

Blank 

RIC 

15-30 

COMMAND 

15-17 

Corrmand  Code 

Functional 

#1 

18 

Precedence 

User 

19-25 

Routing  Indicator  Code 

26 

Blank 

27-30 

Content  Indicator  Code 

31 

Blank 

RIC  CMD 

32-47 

Same  as  #1  (15  thru  30) 

Functional 

#2 

User 

48 

Blank 

RIC  CMD 

49-64 

Same  as  #1  (15  thru  30) 

Functional 

#3 

User 

RIC  CMD 

65-80 

Same  as  #1  (15  thru  30) 

Functional 

#4 

User 

DA 


4743 


FORM 
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ii 

t- 


X  v* 


CONTROL  CARD  PREPARATION 

1.  DATE 

- 1 

For  um  of  thi<  form,  IN  T8 18-1 11.  th«  proponent  agency  It  CSA. 

811201  1 

2.  RUN  10 

3.  RUN  TITLE 

AUDT06 

CABS  AUTODIN 

4.  cor  TROL  CARO  ID 

5.  CONTROL  CARD  TITLE 

P10AUD-CNTL05 

P10AUD-RSN-SELECT-CARD 

16.  CONTROL  CARO  PURPOSE  AND  REMARKS 

Used  to 

select  either  all  RSN's  or  up  to  10  selected  RSN's. 

7.  USER  INFORMATION,  IF  REQUIRED 

8. 

CONTROL  CARD  INSTRUCTIONS 

FIELD 

POSITION 

PREPARATION  INSTRUCTIONS 

RESPONSIBLE 

AGENCY 

a. 

p. 

c. 

d. 

CNTL-ID 

1-13 

Constant  "P10AUD-CNTL05" 

14 

Blank 

COMMENT- 

15 

"C"  or  Space  C  =  Ship  Comment  Records 

Functional 

CTL 

Space  =  Do  Not  Ship  Comments 

User 

16 

Blank 

QTR-SEL 

17 

Select  Quarter  to  be  shipped  ("A"  or  Space) 

Functional 

''A1'  =  All  Quarter  Programmed  Data 

Space  =  Current  and  Future  Quarters 

User 

Programmed  Data 

18 

Blank 

SOR-PROG 

19 

'S'  to  send  only  non-blank  trans  codes; 

DATA- CTL 

20-21 

else  blank 

Blank 

RSN-SEL 

22-26 

RSN  #1  to  be  selected  (enter  "ALL"  to 

Functional 

#1 

27 

select  all  RSN's) 

Blank 

User 

RSN-SEL 

28-80 

Cols  28  thru  80  can  be  used  to  select  up 

Functional 

#2  THRU 

to  9  more  RSN's.  The  format  is  the  same 

User 

#10 

as  Col  22-27. 

DA  ,  rM78  4743 
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CONTROL  CARD  PREPARATION 

For  use  of  this  form,  see  TB  18*111;  the  proponent  agency  is  CSA. 


3.  RUN  TITLE 

CABS  AUTODIN 


811201 


2.  RUN  ID 

AUDT06 


4.  cor  TROL  CARD  ID 

P10AUD-CNTL06 


&  CONTROL  CARD  PURPOSE  AND  REMARKS 


5.  CONTROL  CARD  TITLE 

P10AUD- ITEM-SELECT-CARD 


Used  to  select  either  "ALL"  or  up  to  100  item  numbers. 


7.  USER  INFORMATION.  IF  REQUIRED 


From  1  to  10  CNTL06  cards  may  be  used  on  any  run. 
actual  data  will  be  selected. 


If  card  is  omitted  no 


CONTROL  CARO  INSTRUCTIONS 


PREPARATION  INSTRUCTIONS 


CNTL-ID 


Constant  "P10AUD-CNTL06" 


ITEM  # 
SELECT 
ACTUAL 
DATA 


Blank 

Enter  Item  #  to  be  selected  or  enter  'ALL' 
to  select  all  Item  #'s  for  current  month 


Functional 

User 


ITEM  § 
2  THRU 
10 


Blank 

Cols  37  thru  80  can  be  used  to  select  up  to 
9  additional  Item  #.  Format  is  the 
same  as  Cols  32-36. 


Functional 

User 
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JOB  CONTROL  STATEMENT  (PROC)  -  OS 


//AUDT06S1  PROC  CYC=COB 
//* 

II *  ******■**★*******•****'***********★★**********************★***★*** 

//*  *  THIS  PROC  PREPARES  THE  CABS  BUDGET  DATA  FOR  AUTODIN 
//P10AUD01  EXEC  PGM=P10AUD 

//IB09AUD  DD  DSN=AUD.CABS.&CYC. .B09AUD(0) ,UNIT=TAPE9,DISP*OLD 

//IC10AUD  DD  DUMMY , DCB=BLKS I ZE =80 

//OB10AUD  DD  DSN=AUD. CABS . B10AUD, UNIT  = (TAPE9 , , DEFER) , 

//  DISP=( NEW, KEEP, DELETE), 

//  DCB= ( RECFM=FS , BLKS I ZE=098 , LRECL=098 ) , LABEL -RETPD=120 

//OD10AUD  DD  SYSOUT=B,DCB=BLKSIZE=80 
//OE10AUD  DD  SYSOUT=A,DCB=BLKSIZEs133 
//WA10AUD  DD  UNIT=SYSDA,SPACE=(CYL, (40,2) ,RLSE) , 

//  DCB=(RECFM=BFS,BLKSIZE=800,LRECL=80) 

//SORTWK01  DD  UNIT=SYSDA,SPACE=(CYL,20,,CONTIG) 

//SORTWK02  DD  UNIT=SYSDA,SPACE=(CYL,20, .CONTIG) 

//SORTWK03  DD  UNIT=SYSDA,SPACE=(CYL, 20,, CONTIG) 

//SORTLIB  DD  DSN=SYSl.SORTLIB,DISP=SHR 
//SYSOUT  DD  SYSOUT=A 
//SYSUDUMP  DD  SYSOUT=A 


Figure  3.9-01 
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JOB  CONTROL  STATEMENT  CARD  DECK  LISTING  -  DOS 

//  JOB  AUDT06  C1D0R  CABS  AUTODIN  CYC=AOC 

*  JOB  STEP  P10AUD01 

//  ASSGN  SYS001,X'DK2‘  SORTWK 

//  TLBL  IB09AUD, 'AOC.B09AUD'  BUDGET  DATA  CONSOLIDATED  AOC 

//  TLBL  OB10AUD, 'AOC.B10AUD'  OUTPUT  AUTODIN  FILE  AOC 

//  DLBL  WA10AUD, 'A10AUD,D' ,0,SD 
//  EXTENT  SYS021,WRK1&P,1 ,0,20, 100, B=1 
//  DLBL  SORTWK1, 1 J10AUD* ,0,SD 
//  EXTENT  SYS001,WRK2&P,1,0,20,100,B=1 
//  TLBL  OY10AUD, * Y10AUD ‘  SPOOL  OUTPUT 

//  EXEC  TDYNASN 
OPEN  OY10AUD.SYS013, OUTPUT 
/* 

//  EXEC  P10AUD 

/*  PLACE  P10AUD  CONTROL  CARDS  BEFORE  THIS  CARD 

//  EXEC  TDYNASN 

CLOSE  OY10AUD.SYS013, OUTPUT 

/* 

CLOSE  SYS013 
/* 

//  DLBL  WA10AUD, 'A10AUD' 

//  EXTENT  SYS021.VIRK1&P, 1,0, 20,100, B=1 
//  EXEC  ADASD 
/* 

/& 


Figure  3.7-01 
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JOB  CONTROL  STATEMENT  CARD  DECK  LISTING  -  DOS  (CONTINUED) 

//  JOB  AUDT06  C1D0R  CABS  AUTODIN  CYC=COB 

*  JOB  STEP  P10AUD01 

//  ASSGN  SYS001,X'DK2'  SORTWK 

//  TLBL  IB09AUD, 'COB.B09AUD*  BUDGET  DATA  CONSOLIDATED  COB 

//  TLBL  OB10AUD, 'COB.B10AUD'  OUTPUT  AUTODIN  FILE  COB 

//  DLBL  WA10AUD, ' A10AUD,D‘ ,0,SD 
//  EXTENT  $YS021,WRK1&P,1,0,20,100,B=1 
//  DLBL  SORTWK1, ' J10AUD' ,0,SD 
//  EXTENT  SYS001 ,WRK2&P,1,0,20,100,B=1 
//  TLBL  OY10AUD, ' Y10AUD*  SPOOL  OUTPUT 

//  EXEC  TDYNASN 
OPEN  OY10AUD,SYS013, OUTPUT 
/* 

//  EXEC  P10AUD 

/*  PLACE  P10AUD  CONTROL  CARDS  BEFORE  THIS  CARD 

//  EXEC  TDYNASN 
CLOSE  OY10AUD.SYS013, OUTPUT 
/* 

CLOSE  SYS013 
ifir  /* 

//  DLBL  WA10AUD, 'A10AUD' 

//  EXTENT  SYS021.WRK1&P, 1,0, 20,100, B=1 
//  EXEC  ADASD 
/* 

/& 


Figure  3.7-01 
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JOB  CONTROL  STATEMENT  CARD  DECK  LISTING  -  DOS  (CONTINUED) 

//  JOB  AUDT06  C1D0R  CABS  AUTODIN  CYC=OBL 

*  JOB  STEP  P10AUD01 

//  ASSGN  SYS001,X'DK2'  SORTWK 

//  TLBL  IB09AUD, 'OBL.B09AUD'  BUDGET  DATA  CONSOLIDATED  OBL 

//  TLBL  OB10AUD, 'OBL.B10AUD'  OUTPUT  AUTODIN  FILE  OBL 

//  DLBL  WA10AUO,  'A^AUD.D'  ,0,SD 

//  EXTENT  SYS021,WRK1&P,1,0,20,100,B=1 

//  DLBL  SORTWK1, 1 J10AUD' ,0,SD 

//  EXTENT  SYS001 ,WRK2&P,1 ,0,20, 100, B=1 

//  TLBL  OY10AUD, 1 Y10AUD'  SPOOL  OUTPUT 

//  EXEC  TDYNASN 

OPEN  OY10AUD,SYS013, OUTPUT 

/* 

II  EXEC  P10AUD 

/*  PLACE  P10AUD  CONTROL  CARDS  BEFORE  THIS  CARD 

//  EXEC  TDYNASN 

CLOSE  OY10AUD.SYS013, OUTPUT 

/* 

CLOSE  SYS013 
/* 

//  DLBL  WA10AUD , 1 A10AUD ' 

//  EXTENT  SYS021 ,WRK1&P,1 ,0,20, 100, B=1 
//  EXEC  ADASD 
/* 

/& 
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JOB  CONTROL  STATEMENT  CARD  DECK  LISTING  -  DOS  (CONTINUED) 

//  JOB  AUDT06  C1D0R  CABS  AUTODIN  CYC-SOR 

*  JOB  STEP  P10AUD01 

//  ASSGN  SYS001,X'DK2'  SORTWK 

//  TLBL  IB09AUD, 'SOR.B09AUD*  BUDGET  DATA  CONSOLIDATED  SOR 

//  TLBL  OB10AUD, 'SOR.B10AUD'  OUTPUT  AUTODIN  FILE  SOR 

//  DLBL  WA10AUD, 'A10AUD,D' ,0,SD 
//  EXTENT  SYS021,WRK1&P,1 ,0,20, 100, B=1 
//  DLBL  SORTWK1, ' J10AUD' ,0,SD 
//  EXTENT  SYS001,WRK2&P,1 ,0,20, 100, B=1 
//  TLBL  OY10AUD, 'Y10AUD*  SPOOL  OUTPUT 

//  EXEC  TDYNASN 
OPEN  OY10AUD.SYS013, OUTPUT 
/* 

II  EXEC  P10AUD 

/*  PLACE  P10AUD  CONTROL  CARDS  BEFORE  THIS  CARD 

//  EXEC  TDYNASN 

CLOSE  OY10AUD.SYS01 3, OUTPUT 

I* 

CLOSE  SYS013 
/* 

//  DLBL  WA10AUD, 'A10AUD' 

//  EXTENT  SYS021 ,WRK1&P,1,0,20,100,B=1 
//  EXEC  ADASD 
/* 

/& 
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JOB  CONTROL  STATEMENT  (RETRIEVAL)  -  OS 


RUN  ID:  AUDT06 

RUN  NAME:  CABS  AUTODIN 

//AUDT06  JOB  (acconting  information) 

//AUDT0601  EXEC  AUDT06S1,CYC=XXX  (See  Note  1) 

//P10AUD01 . IC10AUD  DO  * 

/*  INSERT  CONTROL  CARDS  BEFORE  THIS  CARD 

// 


NOTE  1:  On  EXEC  CARD,  substitute  for  XXX  the  appropriate  value  to 
indicate  type  of  run: 

COB,  AOC,  OBL,  SOR 


♦ 


Figure  3.9-01 
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RUN  MESSAGES  AND  RESPONSES 

For  um  of  this  form,  mi  TB  18*111;  the  proponent  agency  it  CSA. 

1.  DATE 

811201 

2.  RUN  IO 

AUDT06 

3.  RUN  TITLE 

CABS  AUTODIN 

MESSAGE  DISPLAYED  5.  ACTION  REQUIRED 


CONSOLE  MESSAGES: 

SAME  AS  SYSOUT/SYSLST 

SYSOUT/SYSLIST  MESSAGES: 

P10AUD  03  H  INVALID  CONTROL  CARD  Control  card  04  is  invalid,  correct 

P10AUD-CNTL04  and  restart  the  run. 

P10AUD  04  H  ERROR  IN  SPOOL  FILE  *  There  was  a  write  error  on  the  spool 

tape,  restart  the  run. 

P10AUD  05  H  WRONG  LENGTH  RECORD  *  There  was  a  read  error  on  the  card 

CARD  READER.  reader.  Restart  the  run. 

P10AUD  06  H  CTL  CD  ERR  NOT  Control  card  read  was  not  an  01  thru 

CNTL01  THRU  CNTL06  06,  correct  and  restart  the  run. 

P10AUD  07  H  MORE  THAN  10  CNTL06  CARDS  There  w.  re  more  than  10  CNTL06  cards, 

correct  and  restart  the  run. 

P10AUD  08  H  CNTL01  MISSING  OR  INVALID  Control  card  01  is  missing  or 

invalid,  correct  and  restart  the  run. 


P10AUD  09  H  CNTL04  MISSING 


6.  REMARKS 

♦DOS  ONLY. 


•7. 


P10AUD-CNTL04  card  is  missing;  must 
be  present  to  specify  command  codes 
to  be  selected. 


FORM 
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Figure  3.9-01 
3-122 


12.  RUN  ID 


ADSM  18-C1D-AUD-IBM  OM 
1  DEC  81 

RUN  MESSAGES  AND  RESPONSES 

For  um  of  thl*  form,  Hi  T8  18-111;  tha  proponent  agancy  It  CSA. 
13.  RUN  TITLE 

_ CABS  AUTQDIN  ( CONTINUED 

MESSAGE  DISPLAYED 


ACTION  REQUIRED 


SYSOUT/SYSLIST  MESSAGES: 

P10AUD  10  H  CNTL05  MISSING  OR  INVALID 


P10AUD  11  H  AS  OF  DATE  MONTH  NOT 
3  POS  ALPHA 


P10AUD  12  H  UNSUCCESSFUL  SORT  B09AUD 


IP10AUD  13  H  NO  DATA  ON  B09AUD 


Control  card  05  is  missing  or 
invalid,  correct  and  restart  the  run. 

As  of  date  month  is  not  an  alpha 
abreviation  for  month  Ex  Jan.  Feb; 
correct  and  restart  the  run. 

Sort  failed  for  some  reason, 
determine  cause  and  restart  the  run. 

Input  budget  data  file  has  no 
records. 


16.  REMARKS 


FORM 
1  NOV  78 


Figure  3.9-01 
3-123 


ADSM  18-C1D-AUD-IBM  OM 
1  DEC  81 


1 

LOGIC  CHART 

1.  DATE 

|  For  um  of  thit  form,  tee  TB  18-111;  the  proponent  agency  It  CSA 

811201 

12.  ID 

3.  TITLE 

|  AUDT06 

CABS  AUTODIN 

1 

Figure  3.9-01 
3-124 


FORM 
1  NOV  78 


Figure  3.9-01 


AOSM  18-C1D-AUD-IBM  OM 
1  DEC  81 


V* 


Run  Description  AUDM07.  Reference  Figure  3.10-01 
INDEX  FOR  FIGURE  3.10-01 

NAME  PAGE  NO. 


3.10.1 

Control  Inputs 

3.10.1.1 

Control  Cards 

3-128 

3.10.1.2 

Control  Input  Statements 

NA 

3.10.1.2.1 

Job  Control  Statements  (PROC) 

3-129 

3.10.1.2.2 

Job  Control  Statements  (RETRIEVAL; 

3-131 

3.10.2 

Management  Information 

3.10.2.1 

Run  Setup-Console  Operating 

Information 

3-132 

3.10.2.2 

Run  Messages  and  Responses 

3-133 

3.10.2.3 

Logic  Chart 

3-134 

3.10.3 

Input-Output  Files 

See  DA 
for  th< 
Inform* 

3.10.4 

Output  Reports 

3-135 

3.10.5 

Reproduced  Output  Reports 

3.10.5.1 

Reproduced  Output  Reports 

NA 

3.10.5.2 

PCM  Processing  Instructions 

NA 

3.10.6 

Restart/Recovery  Procedures 

3.10.6.1 

Recovery  Instructions 

3-136 

3-127 


ADSM  18-C1D-AUD-IBM  OM 
1  DEC  81 


CONTROL  CARO  PREPARATION 

For  use  of  this  form,  see  TB  18-1 11,  the  proponent  agency  is  CSA. 

2.  RUN  10 

AUDM07 

3.  RUN  title  REFORMAT  OBLIGATIONS  FOR  MONTHLY 

CUMULATIVE  OBLIGATION  REPORTING 

4.  cor  TROL  CARO  ID 

P11AUD-CNTL  1 

5.  CONTROL  CARD  TITLE 

P11AUD-C0NTR0L-CARD 

G.  CONTROL  CARO  PURPOSE  AND  REMARKS 


To  provide  program  parameter  options. 


7.  USER  INFORMATION,  IF  REQUIRED 


8.  CONTROL  CARD  INSTRUCTIONS 


n 

PREPARATION  INSTRUCTIONS 

C.  _ 

RESPONSIBLE 

AGENCY 

d. 

CNTL-ID 

1  11 

Constant  "P11AUD-CNTL" 

12 

Blank 

13  15 

Literal  "FY=" 

16 

Last  digit  of  the  fiscal  year  for  the  data  that 

Functional 

YR 

is  to  be  processed. 

user 

17 

Blank 

18  21 

Literal  "AH1=" 

AH1-RQMT/ 

22 

"Y"  if  the  ANC.CINFARS.AH1ANC  (MACOM)  or  the 

Functional 

B14-R0MT 

B14AUD  (INSTL)  tape  file  is  to  be  used  as 

user 

input;  otherwise  "N"  or  blank. 

23  24 

Blank 

LEVEL 

25 

"M"  for  MACOM  level  run; 

Functional 

"I"  for  installation  level. 

user 

26 

Blank 

CMD- 

27  29 

3-digit  command  code.  (The  last  2  digits  are 

Functional 

CODE  #1 

used  to  select  input  records  by  operating 

user 

agency;  the  3-digit  code  will  appear  in  output 

budget,  data  records.) 

30 

Blank 

31-45 

Up  to  4  additional  corrmand  codes,  separated  by 

spaces  (like  columns  27-30). 

46-80 

Blank 

DA  i  SSTt.  4743 


Figure  3.10-01 
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ADSM  18-C1D-AUD-IBM  OM 
1  DEC  81 


JOB  CONTROL  STATEMENT  (PROC)  -  OS 


//AUDM07S1  PROC  CYC=OBL 
//* 

II *  *********************************************************** 

//*  *  THIS  PROC  PERFORMS  THE  REFORMAT  CUMULATIVE  OBLIGATION  * 

//*  *  DATA  FOR  CABS  REPORTING.  * 

! i *  *********************************************************** 

//* 

//P11AUD01  EXEC  PGM=P11AUD 

//ICM2ANC  DD  DSN=ANC.CINFARS.CM2ANC(0) ,UNIT=TAPE9, 

//  DI SP=( OLD, KEEP ),DCBs(RECFM=BFS,BLKSIZE=810,LRECL®81) 

//IAH1ANC  DD  DSN=ANC.CINFARS.AH1ANC(0) ,UNITSTAPE9, 

//  DI  SP=(  OLD,  KEEP )  ,DCBss(RECFM=BFS,BLKSIZE=800,LRECL*80) 

//IA0AAUD  DO  DSN=AUD.CABS.&CYC..A0AAUD(0),UNIT=TAPE9,DISP=(OLD,KEEP) 
//OB02AUD  DD  DSN=AUD. CABS. &CYC. .B02AUD(+1 ), UNI T*TAPE9, 

//  DISP=(,CATLG, DELETE), 

//  DCB= ( RECFM=BFS ,BLKSI ZE=800, LRECL=80) , 

//  LABEL =RETPD=120 

//OB11AUD  DO  SYSOUT=A,DCB=BLKSIZE=133 

//WC11AUD  DD  UNIT=SYSDA,SPACE=(CYL,(30,2),RLSE), 

//  DCB= ( RECFM=BFS , BLKSI ZE=800 , LRECL=80 ) 

//SORTLIB  DD  DSN=SYS1 .SORTLIB.DISP'SHR 
//SORTWK01  DD  UNIT=SYSDA,SPACE=(CYL,15, .CONTIG) 

//SORTWK02  DD  UNIT=SYSOA,SPACE=(CYL, 15,, CONTIG) 

//SORTWK03  DD  UNIT*SYSDA,SPACE=(CYL, 15, .CONTIG) 

//SYSOUT  DD  SYSOUT=A 
//SYSUDUMP  DD  SYSOUT=A 
// IA11AUD  DD  DUMMY , DCB=BLKS I ZE =80 


Figure  3.10-01 
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r 

ADSM  18-C1D-AUD-IBM  OM 
1  DEC  81 


f 

JOB  CONTROL  STATEMENT  CARD  DECK  LISTING  -  DOS 

//  JOB  AU DM07  C1D0R  CABS  CINFARS  EXTRACT  CYC=OBL 

*  JOB  STEP  P11AUD01 

//  ASSGN  SYS001,X'DK2 1  * 

//  TLBL  ICM2ANC, * B14AUD *  MACOM  WOULD  BE  ' CM2ANC '  9 

1 1  TLBL  IAH1ANC, ' AH1ANC' 

//  TLBL  IA0AAUD , ' OBL . A0AAUD 1  CONTROL  FILE,  OBL 

//  TLBL  OB02AUD , ' OBL . B02AUD '  CABS  CINFARS  EXTRACT  OBL 

//  DLBL  OB11AUD, 'B11AUD,D'  PRINTFILE 

//  EXTENT  SYS021,WRK1&P,1,0,20,1,B=1 

//  DLBL  SORTWK1, 'E07AUD' ,0,SD  9 

II  EXTENT  SYS001 ,WRK2&P,1 ,0,20, 100, B=1 
//  DLBL  WC11AUD, 1 CllAUD.D' 

//  EXTENT  SYS021,WRK1&P,1 ,0,20,1, B=1 
//  TLBL  OY11AUD, 1 Y11AUD'  SPOOL  OUTPUT 

//  EXEC  TDYNASN  _ 

OPEN  OY11AUD.SYS013, OUTPUT  9 

/* 

II  EXEC  P11AUD 

P11AUD-CNTL  (user  control  card  options) 

(PRIME  card  deck  input) 

//  EXEC  TDYNASN  -  1  ! 

CLOSE  OY11AUD.SYS013, OUTPUT 
/* 

CLOSE  SYS013 
/* 

//  DLBL  OB11AUD, 'B11AUD'  , 

//  EXTENT  SYS021.WRK1&P, 1,0, 20,1,8=1  - 

//  EXEC  ADASD 
/& 


I 


9 


Figure  3.10-01 
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ADSM  18-C1D-AUD-IBM  OM 
1  DEC  81 


i 

JOB  CONTROL  STATEMENT  (RETRIEVAL)  -  OS 


RUN  ID:  AUDM07 

RUN  NAME:  REFORMAT  CUMULATIVE  OBLIGATION  DATA  FOR  CABS  REPORTING 

//AUDM07  JOB  (accounting  information) 

//AUOM0701  EXEC  AUDM07S1,CYC=OBL 
//P11AUD01 . IA11AUD  DD  * 

P11AUD-CNTL  (user  control  card  options) 

(PRIME  card  deck  input) 

/*  INSERT  P11AUD-CNTL  CARD  AND  ANY  PRIME  CARD  INPUT  BEFORE  THIS  CARD. 

// 


Figure  3.10-01 


3-132 


1 /  Optional  2J  Input  may  be  tape  CM2ANC  (available  at  MACOM  level)  or  B14AUD 

*  OS  only.  (at  installation  level)  and/or  card  (PRIME  deck). 

**  DOS  only. 


I 


ADSM  18-C1D-AU0- IBM  OM 
1  DEC  81 


LOGIC  CHART 

For  ut«  of  this  form.  see  TB  18-111,  the  proponent  agency  is  CSA. 


AUDM07 


rLE  REFORMAT  OBLIGATIONS  FOR  MONTHLY 
CUMULATIVE  OBLIGATION  REPORTING 


AVAILABLE 
\J  MACOM 
ONLY 


811201 


DATA  CONTROL) 


INSTL 

LEVEL 


40AAUCK 
CONTROL^ 
FILE  j 


/WlANCN 
PHASE  I! 
TRANS 

Nule  y 


/M2ANC\ 
PRIME  \ 
NON-ERROR 

vfILE  7 


B14AUD  > 
STANFIN' 
vDATA  J 


U1AUD 

REFORMAT  CUM 
)B LI GAT I ON  DAT/ 
:0R  CABS 


A11AUD 
CARD  FILE 


1ST  CARD 
IS  P11AUD- 
CNTL  CARD; 
FOLLOWED 
BY  PRIME 
CARDS  (IF 


OS  ONLY 


DOS  ONLY 


SPOOL 

AUD-111 


DATA  CONTRO 


/"DATA  CONTRO 


FORM 
1  NOV  78 


Figure  3.10-01 


1/  Produced  for  FORSCOM  only. 


ADSM  18-C1D-AUD- IBM  OM 
1  DEC  81 


RECOVERY  INSTRUCTIONS 

For  um  of  thl*  form,  tee  TB  18-111;  the  proponent  agency  it  CSA. 


1.  DATE 

8112Q1 


2.  RUN  10 

AUDM07 


3.  RUN  TITLE 


REFORMAT  OBLIGATIONS  FOR 
MONTHLY  CUMULATIVE  OBLIGATION  REPORTING 


14. 


ID  CODE 


RECOVERY  INSTRUCTIONS 


P11AUD01 


Restart  with  the  original  input  and  JCL  setup. 


6.  REMARKS 


DA 


FORM 
1  NOV  78 


4751 


Figure  3.10-01 
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3.11  Run  Description  AUDM15.  Reference  Figure  3.11-01 

INDEX  FOR  FIGURE  3.11-01 


NAME 


PAGE  NO. 


3.11.1 

Control  Inputs 

3.11.1.1 

Control  Cards 

3-138  thru  3-139 

3.11.1.2 

Control  Input  Statements 

NA 

3.11.1.2.1 

Job  Control  Statements  (PROC) 

3-140  thru  3-141 

3.11.1.2.2 

Job  Control  Statements  (RETRIEVAL) 

3-142 

3.11.2 

Management  Information 

3.11.2.1 

Run  Setup-Console  Operating 
Information 

3-143 

3.11.2.2 

Run  Messages  and  Responses 

3-144 

3.11.2.3 

Logic  Chart 

3-145 

3.11.3 

Input-Output  Files 

See  DA  Form  4744 
for  I/O  File 
Information 

3.11.4 

Output  Reports 

NA 

3.11.5 

Reproduced  Output  Reports 

3.11.5.1 

Reproduced  Output  Reports 

NA 

3.11.5.2 

PCM  Processing  Instructions 

NA 

3.11.6 

Restart/Recovery  Procedures 

3-146 

3.11.6.1 

Recovery  Instructions 

3-137 
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CONTROL  CARD  PREPARATION 

For  use  of  this  form,  see  TB  18-111.  the  proponent  agency  is  CSA. 


3.  RUN  TITLE 


811201 


5.  CONTROL  CARD  TITLE 


2.  RUN  ID 

AU DM15 


4.  cor  TROL  CARD  ID 

P15AUD-CNU 


6L  CONTROL  CARD  PURPOSE  ANO  REMARKS 

To  Provide  program  parameter  options. 


REFORMAT  OBLIGATION  DATA  FOR  SOR  REPORTS 


P15AUD-C0NTR0L  CARD 


CONTROL  CARD  INSTRUCTIONS 


PREPARATION  INSTRUCTIONS 


Constant  "P15AUD-CNTL" 

Blank 

Literal  "FY=" 

Last  digit  of  the  fiscal  year  for  the 
data  that  is  to  be  present 

Blank 


Literal  "A0M=" 


2-Digit  AS-0F-M0NTH 
Blank 

"M"  for  MACOM  level  run  (to  use  input  tape 
CM2ANC  from  CINFARS);  else  leave  blank 

Blank 


Functional 

User 


Functional 

User 


Functional 

User 


ADSM  18-C1D-AUD-IBM  OM 
1  DEC  81 


CONTROL  CARD  PREPARATION  (CONTINUATION) 

For  uu  of  this  form,  mc  TB  18*111;  the  proponent  agency  it  CSA. 

1.  DATE 

811201 

2.  RUN  ID 

AUDM15 

|3.  CONTROL  CARD  ID  (See  Block  4.  DA  Form  4743 ) 

P15AUD-CNTL 

CMD-RSN1  27-34 


CMD-RSN2 

3 

4 

5 


36-44 

45-53 

54-62 

63-71 


CONTROL  CARD  INSTRUCTIONS  (See  Block  8,  DA  Form  4743) 


PREPARATION  INSTRUCTIONS 

c. 


3-digit  command  code  followed  by  5-character 
RSN  to  be  used  in  command  code  and  RSN 
fields  of  output  budget  data  records. 

Blank 

Additional  command  code/RSN  fields 
corresponding  to  positions  27-35.  If 
not  needed  leave  blank. 


RESPONSIBLE 

AGENCY 

d. 


Functional 

User 


Functional 

User 


72-80 


Blank 


FORM 
t  NOV  78 


4743-1 


Figure  3.11-01 
3-139 
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JOB  CONTROL  STATEMENT  (PROC)  -  OS 

//AUDM15S1  PROC 
//* 

II *  ********************************************************************** 

//*  *  THIS  PROC  EXTRACTS  ACTUAL  CSCFA-218  DATA  FOR  INPUT  TO  CABS  * 

II *  ******************************************************************* 

//* 

//P15AUD01  EXEC  PGM=P15AUD 

//IA0AAUD  DD  DSN=AUD.CABS.SOR.A0AAUD(0) ,UNIT=TAPE9,DISP=( OLD, KEEP) 
//ICM2ANC  DD  DSN=ANC.CINFARS.CM2ANC(0) ,UNIT=TAPE9, 

//  DISP=( OLD, KEEP) ,DCB=(RECFM=BFS,BLKSIZE=810,LRECL=81) 

//OB15AUD  DD  DSN=AUD. CABS. SOR.A02AUO,UNIT=TAPE9,DISP=( .KEEP, DELETE) , 

//  DCB=(RECFM=BFS,BLKSIZE=800,LRECL=80) ,LABEL=RETPD=45 

//WC15AUD  DD  UNIT=SYSDA,SPACE=(CYL,(30,2) ,RLSE) , 

//  DCB=(RECFM=BFS,BLKSIZE=800,LRECL=80) 

//SORTLIB  DD  DSN=SYSl,SORTLIB,DISP=SHR 
//SORTWK01  DD  UNIT=SYSDA,SPACE=(CYL,15 , .CONTIG) 

//SORTWK02  DD  UNIT=SYSDA,SPACE=(CYL, 15, .CONTIG) 

//SORTWK03  DD  UNIT=SYSDA,SPACE=(CYL, 15, .CONTIG) 

//SYSOUT  DD  SYSOUT=A 
//SYSUDUMP  DD  SYSOUT=A 
//IA15AUD  DD  DUMMY, DCB=BLKSIZE=80 


Figure  3.11-01 
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JOB  CONTROL  STATEMENT  CARO  DECK  LISTING  -  DOS 

//  JOB  AUDM15  C1D0R  REFORMAT  ACTUAL  CSCFA-218  DATA  FOR  SOR  REPORTING  CYC=SOR 
*  JOB  STEP  P15AUD01 
//  ASSGN  SYS014,X'CR0' 

//  ASSGN  SYS001,X'DK2' 

//  TLBL  IA0AAUD, 'SOR.A0AAUO*  CABS  CONTROL  FILE  SOR 
//  TLBL  ICM2ANC, 'B14AUD'  MACOM  WOULD  BE  1 CM2ANC ' 

//  TLBL  0615AU0, 'SOR.A02AUD'  OUTPUT  BUDGET  DATA  TRANS  SOR 
//  DLBL  WC15AUD,'C15AUD,D',0,SD 
//  EXTENT  SYS021,WRK1&P,1,0,20,500,B=1 
//  DLBL  SORTWK1, ' J15AUD' 

//  EXTENT  S YS001 , WRK2&P , 1 , 0 , 20 , 500 , B = 1 
//  EXEC  P15AUD 
P15AUD-CNTL  (OPTIONS) 

/*  INSERT  ANY  CSCFA-218  CARD  RECORDS  BEFORE  THIS  CARD 

/& 


Figure  3.11-01 
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JOB  CONTROL  STATEMENT  (RETRIEVAL)  -  OS 

RUN  ID:  AUDM15 

RUN  NAME:  REFORMAT  ACTUAL  CSCFA-218  DATA  FOR  SOR  REPORTING 

//AUDM15  JOB  (accounting  information) 

//AUDM1501  EXEC  AUDM15S1 
//P15AUD01 . IA15AUD  DD  * 

P15AUD-CNTL  (user  control  card  options) 

/*  INSERT  ANY  CSCFA-218  CARD  RECORDS  BEFORE  THIS  CARD 

// 


Figure  3.11-01 
3-142 
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Figure  3.11-01 
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ADSM  18-C1D-ADD-IBM  0M 

1  DEC  81 

- 

1  RUN  MESSAGES  AND  RESPONSES  ' 

1.  DATE 

r 

1  For  un  of  thla  form,  aaa  T8  18-111;  tha  proponent  agancy  la  CSA. 

811201 

.V 

12.  RUN  ID  13.  RUN  TITLE 

* 

1  AUDM15  1  REFORMAT  OBLIGATION  DATA  FOR  SOR  REPORTS 

4.  MESSAGE  DISPLAYED 

|s.  ACTION  REQUIRED 

* 

CONSOLE  MESSAGES: 

t 

SAME  AS  SYSOUT/SYSLST 

SYSOUT/SYSLST  MESSAGES: 

■_  ■ 

P15AUD  03  H  NO  CINFARS  RCDS 

Inform  functional  analyst. 

•  « 

i 

WERE  SELECTED 

U i 

P15AUD  04  H  INVALID  SORT 

Attempt  to  determine 

cause;  restart 

‘ 

run  at  the  beginning 

• 

P15AUD  11  H  CTL  CARD  ERROR 

Insure  that  control  card  is  valid 

(  • 

'  • 

and  place  as  1st  card  in  input  card 

. 

stream;  then  restart 

run  at  the 

beginning. 

f  ;  ’ 

•  *“ 

< 

t=< 

!• 

r*" 

• 

L  ' 

’  • 

8.  REMARKS 

• 

)A  4745 

'  ’1 

Figure  3.11-01 
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JJl 


LOGIC  CHART 

For  uh  of  thla  form,  in  TB  18-111;  tha  proponent  agancy  It  CSA. 

2.  ID 

AUDM15 

a.  title 

REFORMAT  OBLIGATION  DATA  FOR  SOR  REPORTS 

\^RANS J 


( 


Figure  3.11-01 
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3.12 


Run  Description  AUOM20.  Reference  Figure  3.12-01 
INDEX  FOR  FIGURE  3.12-01 


NAME 

PAGE  NO. 

3.12.1 

3.12.1.1 

3.12.1.2 

3.12.1.2.1 

3.12.1.2.2 

Control  Inputs 

Control  Cards 

Control  Input  Statements 

Job  Control  Statements  (PROC) 

Job  Control  Statements  (RETRIEVAL) 

3-148  thru  3-149 
NA 

3-154  thru  3-156 
3-159 

3.12.2 

3.12.2.1 

3.12.2.2 

3.12.2.3 

Management  Information 

Run  Setup-Console  Operating  Information 
Run  Messages  and  Responses 

Logic  Chart 

3-160 

3-163  thru  3-164 
3-167  thru  3-168 

3.12.3 

Input-Output  Files 

See  DA  Form  4744 
for  the  I/O  File 
Information 

3.12.4 

Output  Reports 

3-169 

3.12.5 

3.12.5.1 

3.12.5.2 

Reproduced  Output  Reports 

Reproduced  Output  Reports 

PCM  Processing  Instructions 

NA 

NA 

3.12.6 

3.12.6.1 

Restart/Recovery  Procedures 

Recovery  Instructions 

3-170 
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CONTROL  CARD  PREPARATION 

For  oto  of  this  form,  see  TB18-111;  the  proponent  agency  is  CSA. 

1.  DATE 

811201 

2.  RUN  10 

3.  RUN  TITLE 

AUDM20 

CABS  STATUS  OF  OPERATING  RESOURCES 

4.  COf  TROL  CARO  ID 

5.  CONTROL  CARO  TITLE 

P20AUD-CNTL 

P20AUD-CONTROL-CARD 

6.  CONTROL  CARO  PURPOSE  AND  REMARKS 

To  Provide  Program  Parameter  Options. 

7.  USER  INFORMATION,  IF  REQUIRED 

CONTROL  CARD  INSTRUCTIONS 

■  i  n  1 1 

PREPARATION  INSTRUCTIONS 

RESPONSIBLE 

AGENCY 

C. 

_ 

CNTL-ID 

1  11 

Constant  "P20AUD-CNTL" 

- 

12 

Blank 

P20-CNTL 

13 

Execute  program  P20AUD  -  "Y"  or  "N"  (yes  or  no) 

Functional 

"Y"  =  create  a  new  (A20AUD)  to  produce  the 

User 

SOR  Reports;  "N"  =  use  the  Data  File 

previously  created. 

14 

Blank 

P21-CNTL 

15 

Execute  program  P21AUD  -  "Y"  or  "N" 

Functional 

(Status  of  Operating  Resources  Report) 

User 

16 

Blank 

P23-CNTL 

17 

Execute  program  P23AUD  -  "Y"  or  "N" 

Functional 

(Deviation  Analysis  Report) 

User 

18 

Blank 

P25-CNTL 

19 

Execute  program  P25AUD  -  "Y"  or  "N" 

Functional 

(Workload  Analysis  Report) 

User 

DA  i  rvM,s  4743 

Figure  3.12-01 
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1  CONTROL  CARD  PREPARATION  (CONTINUATION) 

|  For  un  of  thlt  form,  too  TB  18-111;  the  proponent  agency  It  CSA. 

1.  DATE  1 

811201  1 

2.  RUN  ID 

3.  CONTROL  CARD  ID  (S*9  Bloch  4 ,  DA  Form  4743 )  1 

AUDM20 

P20AUD-CNTL 

OHH 

CONTROL  CARD  INSTRUCTIONS  f See  Block  8,  DA  Form  4743) 

PREPARATION  INSTRUCTIONS 

RESPONSIBLE 

AGENCY 

n 

C. 

d. 

20 

Blank 

P27-CNTL 

21 

Execute  program  P27AUD  -  "Y"  or  "N" 

Functional 

(Average  Salary  Report) 

User 

22-24 

Blank 

LEVEL 

25 

"C"  or  "1"  -  "C"  for  MACOM  level  run 

Functional 

"I"  for  Installation  level 

User 

26 

Blank 

27  34 

As  of  date 

Functional 

27  28 

Day  -  2  digit  numeric 

User 

29 

Blank 

30  31 

Month  -  2  digit  numeric 

32 

Blank 

33  34 

Year  -  2  digit  numeric 

• 

35  80 

Blank 

)A  ,xi  4743-1 


Figure  3.12-01 
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JOB  CONTROL  STATEMENT  (PROC)  -  OS 

//AUDM20S1  PROC  CYC=SOR,SS1SORT=40 
//* 

I J ★ 

//*  *THI S  PROC  PREPARES  THE  CABS  STATUS  OF  OPERATING  RESOURCES  REPORT  * 

j f-k  ********************************************************************** 

//P20AUD01  EXEC  PGM=P20AUD 
//SYS  IN  DD  DUMMY 

//IA0AAUD  DD  DSN=AUD. CABS. &CYC. .A0AAUD(0) ,UNIT=TAPE9,DISP=(0LD, KEEP) 
//OA0AAUD  DD  DSN=AUD. CABS. A0AAUD,UNIT=SYSDA, SPACE=(CYL, (5,5) ,RLSE ) , 

//  DCB=(RECFM=BFS,BLKSIZE=1200,LRECL=120) , 

//  DISP=(NEW, PASS, DELETE) 

//IA01AUD  DD  DSN=AUD.CABS.&CYC. .A01AUD(0) ,UNIT=TAPE9,DISP=(OLD,KEEP) 
//IA07AUD  DD  DSN=AUD. CABS. &CYC. .A07AUD(0) ,DISP=(OLD, KEEP) , 

//  UNIT=(TAPE9,, DEFER) 

//OA20AUD  DD  DSN=AUD. CABS. A20AUD, UNI T= ( TAPE9, , DEFER ) , 

//  DISP=(NEW, PASS, DELETE), 

//  DCB= ( RECFM=BFS , BLKS IZE=2800 , LRECL=140) , LABEL=RETPD=30 

//OE20AUD  DD  DSN=AUD.CABS.E20AUD,SPACE=(80,1) ,UNIT=SYSDA, 

//  DCB=(RECFM=BFS,BLKSIZE=80,LRECL=80) ,DISP=( NEW, PASS, DELETE) 

//SORTUB  DD  DSN=SYSl.SORTLIB,DISP=SHR 
//SORTWK01  DD  UNIT=SYSDA,SPACE=(CYL,10,,CONTIG) 

//SORTWK02  DD  IJNIT=SYSDA,SPACE=(CYL,10,,CONTIG) 

//SORTWK03  DD  UNIT=SYSDA,SPACE=(CYL,10, ,CONTIG) 

//SYSOUT  DD  SYSOUT=A 
//SYSUDUMP  DD  SYSOUT=A 
//P21AUD02  EXEC  PGM=P21AUD 

//IA0AAUD  DD  DSN=AUD. CABS. A0AAUD, UNI T=SYSDA,DISP=( OLD, PASS) 

//IA20AUD  DD  DSN=AUD. CABS. A20AUD, UNI T=TAPE9,DISP=( OLD, PASS) 

//IE20AUD  DD  DSN=AUD.CABS.E20AUD,UNIT=SYSDA,DISP=( OLD, PASS) 

//OC21AUD  DD  DSN=AUD. CABS. C21AUD,UNIT=(TAPE9, , DEFER) ,DISP=(NEW, KEEP) , 

//  VOL  =  ( , ,  ,16)  ,DCB=(RECFM=BFS,BLKSIZE=1330,LRECL--=133) , 

//  LABEL=RETPD=7 

//WB21AUD  DD  UNIT=SYSDA,SPACE=(CYL,{140,5) ,RLSE) , 

//  DCB=(RECFM=BFS,BLKSIZE=1400,LRECL=140) 

//SORTLIB  DD  DSN=SYS1 . SORTL I B ,DISP=SHR 

//SORTWK01  DD  UNIT=SYSDA,SPACE=(CYL,&SS1S0RT, ,CONTIG) 

//SORTWK02  DD  UNIT=SYSDA,SPACE=(CYL,&SS1S0RT, ,CONTIG) 

//SORTWK03  DD  UNIT=SYSDA,SPACE=(CYL,&SS1S0RT, ,CONTIG) 

//SORTWK04  DD  UNIT=SYSDA,SPACE=(CYL,&SS1S0RT, ,CONTIG) 

//SORTWK05  DD  UNIT=SYSDA,SPACE=(CYL,&SS1S0RT, ,CONTIG) 

//SORTWK06  DD  UNIT=SYSDA,SPACE=(CYL,&SS1S0RT, .CONTIG) 

//SYSOUT  DD  SYSOUT--A 
//SYSUDUMP  DD  SYSOUT=A 


Figure  3.12-01 
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JOB  CONTROL  STATEMENT  (PROC)  -  OS 
//P23AUD03  EXEC  PGM=P23AUD 

//IA0AAUD  DD  DSN=AUD. CABS. A0AAUD, UNI T=SYSDA,DISP=( OLD, PASS) 

//IA20AUD  DD  DSN=AUD. CABS. A20AUD,UNIT=TAPE9,DISP=( OLD, PASS) 

//IE20AUD  DD  DSN=AUD. CABS. E20AUD, UNI T=SYSDA,DISP=( OLD, PASS) 

//OC23AUD  DD  DSN=AUD. CABS. C23AUD,UNIT=(TAPE9, .DEFER) ,DISP=(NEW, KEEP) , 
//  VOL=( , , ,16) ,DCB=(RECFM=BFS,BLKSIZE=1330,LRECL=133) , 

//  LABEL =RETPD=7 

//WW23AUD  OD  DSN=AUD. WORKTAPE , UNI T= ( TAPE9, , DEFER ) , DISP= ( NEW, DELETE ) , 

//  VOL=( , , ,16) ,LABEL=RETPD=0, 

//  DCB=(RECFM=BFS,BLKSIZE=2800,LRECL=140) 

//SORTLIB  DD  DSN=SYS1. SORTLIB, DISP=SHR 
//SORTWK01  DD  UNIT=SYSDA,SPACE=(CYL,&SS1S0RT, .CONTIG) 

//SORTWK02  DD  UNIT =SYSDA, SPACE= { CYL .&SS1SORT, .CONTIG) 

//SORTWK03  DD  UNIT=SYSDA, SPACE=( CYL, &SS1SORT, .CONTIG) 

//SORTWK04  DD  UNIT =SYSDA , SPACE= ( CYL .&SS1SORT , , CONTIG) 

//SORTWK05  DD  UNIT=SYSDA, SPACE= (CYL, &SS1SORT, .CONTIG) 

//SORTWK06  DD  UNIT=SYSDA , SPACE= ( CYL .&SS1SORT, .CONTIG) 

//SYSOUT  DD  SYSOUT=A 
//SYSUDUMP  DD  SYSOUT=A 
//P25AUD04  EXEC  PGM=P25AUD 

//IA0AAUD  DD  DSN=AUD . CABS . A0AAUD , UNI T=SYSDA , DI SP= ( OLD, PASS ) 

//IA20AUD  DD  DSN=AUD. CABS. A20AUD, UNI T=TAPE9,DISP=( OLD, PASS) 

//IE20AUD  DD  DSN=AUD . CABS . E20AUD .UNIT =S YSDA , DI SP= ( OLD , PASS ) 

//OC25AUD  DD  DSN=AUD. CABS. C25AUD,UNIT=(TAPE9, .DEFER) ,DISP=(NEW,KEEP) , 
//  VOL=( , , ,16) ,DCB=(RECFM=BFS,BLKSIZE=1330,LRECL=133) , 

//  LABEL =RETPD=7 

// WW25AUD  DD  DSN=AUD .WORKTAPE , UNI T= ( TAPE9 ,, DEFER ), D I SP =( NEW , DELETE ) , 

//  VOL=(,,, 16), LABEL =RETPD=0, 

//  DCB=(RECFM=BFS,BLKSIZE=2800,LRECL=140) 

//WX25AUD  DD  UNIT=SYSDA,SPACE=(TRK,(15,5) ,RLSE) , 

//  DCB=(RECFM=BFS,BLKSIZE=550,LRECL=50) 

//SORTLIB  DD  DSN=SYS1 .SORTLIB, DISP=SHR 
//SORTWK01  DD  UNIT=SYSDA,SPACE=(CYL,&SS1S0RT, .CONTIG) 

//SORTWK02  DD  UNIT=SYSDA,SPACE=(CYL,&SS1S0RT, .CONTIG) 

//SORTWK03  DD  UNIT=SYSDA,SPACE=(CYL,&SS1S0RT, .CONTIG) 

//SORTWK04  DO  UNIT=SYSDA,SPACE=(CYL .&SS1SORT, .CONTIG) 

//SORTWK05  DD  UNIT=SYSDA, SPACE=( CYL, &SS1SORT, .CONTIG) 

//SORTWK06  DD  UNIT=SYSDA,SPACE=(CYL,&SS1S0RT, .CONTIG) 

//SYSOUT  DO  SYSOUT=A 
//SYSUDUMP  DD  SYSOUT=A 


Figure  3.12-01 
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JOB  CONTROL  STATEMENT  (PROC)  -  OS 
//P27AUD05  EXEC  PGM=P27AUD 

//IA0AAUD  DO  DSN=AUD. CABS. A0AAUD, UNI T=SYSDA,DISP=( OLD, DELETE) 
//IA20AUD  DD  DSN=AUD. CABS. A20AUD,UNIT=TAPE9,DISP=( OLD, KEEP) 

//IE20AUD  DD  DSN=AUD. CABS. E20AUD,UNIT=SYSDA,DISP=(OLD, DELETE) 
//OC27AUD  DD  DSN=AUD. CABS. C27AUD, UNIT=(TAPE9, , DEFER) ,DISP=(NEW,KEEP) , 
//  VOL=( , , ,16) ,DC8=(RECFM=BFS,BLKSIZE=1330,LRECL=133) , 

//  LABEL=RETPD=7 

//WW27AUD  DD  DSN=AUD . WORKTAPE , UNI T= ( TAPE9 , , DEFER ) , DISP= ( NEW, DELETE ) , 

//  VOL=( , , ,16) ,LABEL=RETPD=0, 

//  DCB=(RECFM=BFS,BLKSIZE=2800,LRECL=140) 

//SORTLIB  DD  DSN=SYS1 .SORTLIB,DISP=SHR 
//SORTWK01  DD  UNIT=SYSDA,SPACE=(CYL,&SS1S0RT, .CONTIG) 

//SORTWK02  DD  UNIT=SYSDA,SPACE=(CYL,&SS1S0RT, .CONTIG) 

//SORTWK03  DD  UNIT=SYSDA,SPACE=(CYL,&SS1S0RT, , CONTIG) 

//SORTWK04  DD  UNIT=SYSDA,SPACE=(CYL,&SS1S0RT, .CONTIG) 

//SORTWK05  DD  UNIT=SYSDA, SPACE =(CYL,&SS1S0RT, .CONTIG) 

//SORTWK06  DD  UNIT=SYSDA,SPACE={CYL,&SS1S0RT, .CONTIG) 

//SYSOUT  DD  SYSOUT=A 
//SYSUDUMP  DD  SYSOUT=A 


Figure  3.12-01 
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JOB  CONTROL  STATEMENT  CARD  DECK  LISTING  -  DOS 


//  JOB  AUDM20  C1D0R  CAB 
*  JOB  STEP  P20AUD01 
//  ASSGN  SYS001,X,DK2‘ 

//  TLBL  IA0AAUD, 'SOR.A0AAUD' 
//  TLBL  IA01AUD, 'SOR.A01AUD' 
//  TLBL  IA07AUD, 'SOR.A07AUD' 
//  TLBL  OA20AUD, 'SOR.A20AUD' 
//  DLBL  OA0AAUD, 'AAAAUD' 


CABS  STATUS  OF  OPR  RES 


CYC=$OR 


CABS  CTL  FILE  TAPE 
CABS  MCF  SOR 
CABS  INTERMEDIATE  SOR 
CABS  DATA  WITH  DESCRIPTIONS 
CABS  CTL  FILE  DISK 


//  EXTENT  SYS021.WRK1&P, 1,0, 20,060, B=1 
//  DLBL  OE20AUD, 'E20AUD'  CABS  CNTL  RECORD 

//  EXTENT  SYS023,WRKl&P,l ,0,20,1 ,B=1 
//  DLBL  SORTWK1 , 1 J20AUD ' 

//  EXTENT  SYS001,WRK2&P,1, 0,20,1000, B=1 
//  EXEC  P20AUD 

P20AUD-CNTL  (user  control  card  options) 

/*  PLACE  P20AUD-CNTL  CARD  BEFORE  THIS  CARD 

*  JOB  STEP  P21AUD02 

//  TLBL  IA20AUD, 'SOR.A20AUD'  CABS  DATA  WITH  DESCRIPTIONS  SOR 

//  DLBL  IA0AAUD,* AAAAUD'  CABS  CTL  FILE  DISK 

//  EXTENT  SYS021.WRK1&P, 1,0, 20,1, B=1 

//  DLBL  IE20AUD, 'E20AUD'  CABS  CNTL  RECORD 

//  EXTENT  SYS023.WRK1&P, 1,0, 20,1, B=1 

//  DLBL  OC21AUD , 1 C21AUD , D 1  PRINTFILE 

//  EXTENT  SYS020.WRK1&P, 1,0, 20,1, B=1 

//  DLBL  WB21AUD, 'B21AUD' 

//  EXTENT  SYS021.WRK1&P ,1 ,0,20,1000,B=1 
//  DLBL  SORTWK1 , 1 J21AUD ' 

//  EXTENT  SYS001,WRK2&P,1 ,0,20, 1000, B=1 
//  TLBL  OY21AUD, ' Y21AUD1  SPOOL  OUTPUT 

//  EXEC  TDYNASN 
OPEN  OY21AUD.SYS013, OUTPUT 
/* 

//  EXEC  P21AUD 
/* 

//  EXEC  TDYNASN 


CLOSE  OY21AUD.SYS013, OUTPUT 
/* 


Figure  3.12-01 
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JOB  CONTROL  STATEMENT  CARD  DECK  LISTING  -  DOS  (CONTINUED) 

*  JOB  STEP  P23AUD03 

//  TLBL  I A20AUD , 1 SOR . A20AUD '  CABS  DATA  WITH  DESCRIPTIONS 

//  DLBL  IA0AAUD, 'AAAAUD' 

//  EXTENT  SYS021 ,WRK1&P ,1 ,0,20,1 ,B=1 
//  DLBL  IE20AUD, 'E20AUD' 

//  EXTENT  SYS023,WRK1&P ,1 ,0,20,1 ,B=1 
//  DLBL  OC23AUD, ' C23AUD '  PRINT  FILE 

//  EXTENT  SYS021 ,WRK1&P,1 ,0,20,1 ,B=1 
//  DLBL  WW23AUD, ' W23AUD 1 
//  EXTENT  SYS021,WRK1&P,1,0,20,1000,B=1 
//  DLBL  SORTWK1, ' J23AUD* 

//  EXTENT  SYS001,WRK2&P, 1,0, 20, 1000,8=1 
//  EXEC  P23AUD 
/* 

*  JOB  STEP  P25AUD04 

//  TLBL  IA20AUD, 'SOR.A20AUD'  CABS  DATA  WITH  DESCRIPTIONS 
//  DLBL  IA0AAUD,' AAAAUD' 

//  EXTENT  SYS021,WRK1&P,1 ,0,20,1 ,B=1 
//  DLBL  IE20AUD, 1 E20AUD ' 

//  EXTENT  SYS023,WRK1&P, 1,0,20,1,6=1 
//  DLBL  OC25AUD, 1 C25AUD'  PRINT  FILE 

//  EXTENT  SYS021,WRK1&P,1,0,20,1,B=1 
//  DLBL  WW25AUD, ’ W25AUD 1 
//  EXTENT  SYS021 ,WRK1&P,1 ,0,20, 1000, B=1 
//  DLBL  WX25AUD, 1 X25AUD 1 
//  EXTENT  SYS021 ,WRK1&P ,1 ,0,20,20,B=1 
//  DLBL  SORTWK1, 1 J25AUD* 

//  EXTENT  SYS001,WRK2&P,1 ,0,20, 1000, B=1 
//  EXEC  P25AUD 
/* 

*  JOB  STEP  P27AUD05 

//  TLBL  IA2wAUD, 'SOR.A20AUD' 

//  DLBL  IA0AAUD,' AAAAUD' 

//  EXTENT  SYS021 ,WRK1&P ,1 ,0,20,1 ,B=1 
//  DLBL  IE20AUD, ' E20AUD 1 
//  EXTENT  SYS023,WRK1&P ,1 ,0,20,1 ,B=1 
//  DLBL  OC27AUD, ' C27AUD '  PRINT  FILE 

//  EXTENT  SYS021,WRK1&P,1,0,20,1,B=1 
//  DLBL  WW27AUD, 'W27AUD' 

//  EXTENT  SYS021 ,WRK1&P,1 ,0,20, 1000, B=1 
//  DLBL  SORTWK1 , ' J27AUD' 

//  EXTENT  SYS001 ,WRK2&P , 1 , 0,20, 1000, B=1 
//  EXEC  P27AUD 
/* 

CLOSE  SYS013 
/* 


F  ,gure  3.12-01 
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JOB  CONTROL  STATEMENT  CARD  DECK  LISTING  -  DOS  (CONTINUED) 


//  DLBL  OA0AAUD, 'AAAAUD' 

//  EXTENT  SYS021,WRKHP,1,0,20,1,B=1 

//  DLBL  OE20AUD, 1 E20AUD'  CABS  CNTL  RECORD 

//  EXTENT  SYS023.WRK1&P, 1,0, 20,1, B=1 

//  DLBL  OC21AUD, 'C21AUD'  PRINT  FILE 

//  EXTENT  SYS020.WRK1&P, 1,0, 20,1,8*1 

//  DLBL  WB21AUD,'B21AUD' 

//  EXTENT  SYS021.WRK1&P, 1,0,20,1,8*1 
//  DLBL  0C23AUD, 'C23AUD'  PRINT  FILE 

//  EXTENT  SYS021,WRK1&P, 1,0, 20,1, B*1 
//  DLBL  WW23AUD, 'W23AUD' 

//  EXTENT  SYS021,WRKUP,1,0,20,1000,B*1 
//  DLBL  OC25AUD, 'C25AUD'  PRINT  FILE 

//  EXTENT  SYS021.WRK1&P, 1,0,20,1,8=1 
//  DLBL  WW25AUD, 'W25AU0 ' 

//  EXTENT  SYS021,WRK1&P,1,0,20,1000,B*1 
//  DLBL  WX25AUD, 'X25AUD' 

//  EXTENT  SYS021,WRK1&P,1 ,0,20,20,B*1 
//  DLBL  OC27AUD, 'C27AUD1  PRINT  FILE 

//  EXTENT  SYS021,WRK1&P,1,0,20,1,B=1 
//  DLBL  WW27AUD, 'W27AUD' 

//  EXTENT  SYS021,WRK1&P,1,0,20,1000,B=1 
//  EXEC  ADASD 
/* 

/& 
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JOB  CONTROL  STATEMENT  (RETRIEVAL) 


RUN  ID:  AUDM20 

RUN  NAME:  CABS  STATUS  OF  OPERATING  RESOURCES 


//AUDM20  JOB  (accounting  information) 
//AUDM2001  EXEC  AUDM20S1 
//P20AUD01 .SYSIN  DD  * 

P20AUD-CNTL  (user  control  card  options) 

/* 

// 


Figure  3.12-01 
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AUDM2C 


RUN  MESSAGES  AND  RESPONSES 

For  im  of  th>»  form,  «—  TB  18-111;  th«  propon«nt  t9»ncy  l«  CSA. _ 

13.  RUN  TITLE 

CABS  STATUS  OF  OPERATING  RESOURCES 


II.  DATE 


811201 


MESSAGE  DISPLAYED 


ACTION  REQUIRED 


CONSOLE  MESSAGES: 

SAME  AS  SYSOUT/SYSLST 


SYSOUT/SYSLST  MESSAGES: 
P20AUD  01  H  NO  CONTROL  CARD 


P20AUD-CNTL  card  is  missing  or 
misspelled.  Correct  and  restart 
the  run. 


P20AUD  02  H  CONTROL  CARD  ERROR 


Values  in  P20AUD-CNTL  are  not  valid. 
Correct  and  restart  the  run. 


P20AUD  03  H  CONTROL  FILE  MISSING 


There  was  no  Control  File  (A0AAUD)  or 
there  were  no  records  on  Control 
File.  Correct  and  rerun. 


P21AUD  01  H  CONTROL  CARD  ERROR 


P21AU0  04  H  NO  BUDGET  DATA 


P21AUD  05  H  NO  CONTROL  CARD 


Month  field  on  control  card 
(P20AUD-CNTL)  is  invalid.  Correct 
and  restart  the  run. 

There  were  no  records  on  the  A20AUD 
file.  Problem  must  be  resolved  by 
functional  user  and/or  functional 
proponent. 

Step  P21AUD02  is  dependent  upon 
P20AUD-CNTL  passed  by  step  P20AUD01. 
Check  run  set-up.  Correct  and 
restart  run. 


P21AUD  06  H  NO  SUMMARY  RCD 


There  were  no  sumnary  records  on 
the  A20AUD  file.  Problem  must  be 
resolved  by  the  functional  user 
and/or  functional  proponent. 


8.  REMARKS 


FORM 
1  NOV  78 


Figure  3.12-01 
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AOSM  18-C1D-AUD- IBM  OM 
1  DEC  81 


RUN  MESSAGES  AND  RESPONSES 

For  uh  of  thl»  form,  wa  TB  18-111;  th«  proponent  agency  i*  CSA. 

1.  DATE 

811201 

2.  RUN  ID 

3.  RUN  TITLE 

AUDM20 

CABS  STATUS  OF  OPERATING  RESOURCES  (CONTINUED)  | 

4.  MESSAGE 

DISPLAYED 

5.  ACTION  REQUIRED 

P21AUD  07  H  SORT  FAILURE 

Check  sort  messages,  determine  the 
cause  for  the  failure,  correct  and 
restart  the  run. 

P21AUD  09  H  CNTL  CARD  DATE  ERR 

The  as  of  date  P20AUD-CNTL  card 
must  be  equal  to  or  less  than  the 
current  date.  Correct  and  restart 
the  run. 

P21AUD  10  H  SPOOL  WRITE  ERROR 

Self  explanatory  (DOS).  Restart  per 
Recovery  Instructions. 

P23AUD  11  H  * 

*  CNTL  CARD  MISSING 

Step  P23AUD03  is  dependent  upon 
upon  P20AUD-CNTL  passed  by  preceding 
step.  Check  run  set-up.  Correct  and 
restart  the  run. 

*  INVALID  SORT 

Check  sort  messages  to  determine 
cause  of  failure.  Correct  and 
restart  the  run. 

*  NO  INPUT  SELECTED 

None  of  the  records  on  A20AUD  met 
selection  criteria  for  this  step. 

Notify  CABS  analyst. 

*  NO  Q  CONTROL  RCDS 

This  step  requires  control  infor¬ 
mation  from  type  ' Q *  records  on  the 

CABS  Control  File  (AOAAUD)  and  none 
were  found.  Notify  CABS  analyst. 

*  SKIPPED  PER  OPTION 

Information  only.  This  step  was 
purposely  bypassed  per  opcion  in 
P20AUD-CNTL . 

e.  remarks 

DA  4745 
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RUN  MESSAGES  AND  RESPONSES 

For  um  of  thla  form,  imTB  18-111;  tha  proponent  agency  It  CSA. 


3.  HUN  TITLE 


1.  OATE 
811201 


AUDM20 


CABS  STATUS  OF  OPERATING  RESOURCES  (CONTINUED) 


MESSAGE  DISPLAYED 


P25AUD  11  H  * 

*  CNTL  CARO  MISSING 


*  INVALID  SORT 


*  NO  INPUT  SELECTED 


*  NO  R  CONTROL  RCDS 


*  SKIPPED  PER  OPTION 


ACTION  REQUIRED 


Step  P25AUO03  is  dependent  upon 
upon  P20AUD-CNTL  passed  by  preceding 
step.  Check  run  set-up.  Correct  and 
restart  the  run. 

Check  sort  messages  to  determine 
cause  of  failure.  Correct  and 
restart  the  run. 

None  of  the  records  on  A20AUD  met 
selection  criteria  for  this  step. 
Notify  CABS  analyst. 

This  step  requires  control  infor¬ 
mation  from  type  ' R '  records  on  the 
CABS  Control  File  (AOAAUD)  and  none 
were  found.  Notify  CABS  analyst. 

Information  only.  This  step  was 
purposely  bypassed  per  option  in 
P20AUD-CNTL. 


ADSM  18-C1D-AUD- IBM  OM 
1  DEC  81 


FORM 
1  NOV  78 
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LOGIC  CHART 

For  um  of  thl«  form,  tea  TB  18-111;  the  proponent  agency  it  CSA. 

1.  DATE 

811201 

2.  ID 

AUDM20 

3.  TITLE 

CABS  STATUS  OF  OPERATING  RESOURCES 

FORM 
1  NOV  78 


Figure  3.12-01 
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Figure  3 . 12-01 
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Figure  3.12-01 
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REMARKS 
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P20AUD01 

P21AUD02 

P23AUD03 

P25AUD04 

P27AUD05 


RECOVERY  INSTRUCTIONS 

For  uh  of  this  form,  mo  TB  16*111;  the  proponent  agency  It  CSA. 


3.  RUN  TITLE 

CABS  STATUS  OF  OPERATING  RESOURCES 


RECOVERY  INSTRUCTIONS 


Restart  with  the  original  input  and  JCL  setup. 

See  P20AUD-CNTL  format  and  options  available.  Change  options 
if  appropriate  to  bypass  those  steps  successfully  completed 
prior  to  ABEND.  Note  that  JCL  overrides  may  be  needed  to 
control  tape  selection  consistent  with  options  elected. 
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3.13  Run  Description  AUDM14.  Reference  Figure  3.13-01. 

INDEX  FOR  FIGURE  3.13-01 


NAME 

PAGE  NO. 

3.13.1 

Control  Inputs 

3.13.1.1 

Control  Cards 

3-168 

3.13.1.2 

Control  Input  Statements 

3.13.1.2.1 

Job  Control  Statements  (PROC) 

3-169 

3.13.1.2.2 

Job  Control  Statements  (RETRIEVAL) 

3-171 

3.13.2 

Management  Information 

3.13.2.1 

Run  Setup-Console  Operating 

Information 

3-172 

3.13.2.2 

Run  Messages  and  Responses 

3-173 

3.13.2.3 

Logic  Chart 

3-174 

3.13.3 

Input-Output  Files 

See  DA  Form  4744 
for  I/O  file 
information 

3.13.4 

Output  Reports 

NA  ' 

3.13.5 

Reproduced  Output  Reports 

NA 

3.13.6 

Restart/Recovery  Procedures 

3-175 

3.13.6.1 

Recovery  Instructions 

3-167 
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CONTROL  CARD  PREPARATION 

For  uh  of  thlt  form,  taa  T818-111;  tha  proponant  agancy  it  CSA. 

1.  DATE 

811201 

BfifllCTBHBBi 

3.  RUN  TITLE 

STANFINS  EXTRACT 

4.  COf  TROL  CARO  ID 

P14AUD-CN7L 

6.  CONTROL  CARO  TITLE 

P14AUD-C0NTR0L-CARD 

6.  CONTROL.  CARO  PURPOSE  AND  REMARKS 

To  provide  Fiscal  Year  of  STANFINS  data  to  be  extracted. 

7.  USER  INFORMATION.  IF  REQUIRED 

V 

CONTROL  CARO  INSTRUCTIONS 

1 

^KH 

PREPARATION  INSTRUCTIONS  ^ 

_ £. _ i 

MiMMi 

CNTL-ID 

1 

1-11 

Constant  "P14AUD-CNTL" 

12-14 

Literal  "FY=" 

FISCAL- 

YR 

15 

Last  digit  of  the  fiscal  year  for  the  data 
that  is  to  be  extracted. 

Functional 

User 

16-80 

Blank 

DA  1 25?.  4743 
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JOB  CONTROL  STATEMENT  (PROC)  -  OS 


//AU0M14S1  PROC 
//* 

f f *  **************************************************************** 

//*  *  THIS  PROC  EXTRACTS  STANFINS  SOR  DATA  FOR  INPUT  TO  CABS  * 

II* 

//P14AUD01  EXEC  PGM3P14AUD 

//IEXUAVK  DD  DSN3AVK. MASTER. EXUAVK(0) ,UNIT3TAPE9,DISP3(0LD,PASS), 

//  DCB3 (RECFM=FB , LRECL3152 , BLKSIZE39120) .LABEL3 (3 ,SL ) , 

//  VOL3(, RETAIN) 

//IAXWAVK  DD  DSN=AVK. MASTER. AXWAVK(0) ,UNIT3TAPE9,DISP3(0LD,PASS) , 

//  DCB3(RECFM3FB,LRECL3160,BLKSIZE39920),LABEL3(9,SL), 

//  VOL=REF=*. IEXUAVK 

//0B14AUD  DD  DSN3AUD.CABS.B14AUD,UNIT3TAPE9,DISP3(NEW,KEEP), 

//  DCB3 ( RECFM®FBS , LRECL=81 , BLKSI ZE3810) ,LABEL=RETPD=45 

//VIW14AUD  DD  UNIT*SYSDA ,  DI SP= ( NEW,  DELETE ) , SPACE3  ( CYL , ( 50 , 5 ) , RLSE ) , 

//  DCB=(RECFM=FB,LRECL3160,BLKSIZE31600) 

//WX14AUD  DD  UNIT=*SYSDA , DISP3 ( NEW, DELETE ) , SPACE3 ( CYL , ( 50, 5 ) ,RLSE ) , 

//  DCB3 ( RECFM=FB , LRECL3 152 , BLKS I ZE= 1520 ) 

//SYSOUT  DD  SYSOUT=A 

//SYSUDUMP  DD  SYSOUT=A 

//SYSIN  DD  DUMMY, DCB3BLKSIZE380 


Figure  3.13-01 
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JOB  CONTROL  STATEMENT  CARD  DECK  LISTING  -  DOS 

//  JOB  AUDM14  C1D0R  CABS  EXTRACT  STANFINS  SOR  DATA 
*  JOB  STEP  P14AUD01 
//  TLBL  IAXWAVK, 'AXWAVK* 

//  TLBL  IEXUAVK, 'EXUAVK' 

//  TLBL  0B14AUD, 'B14AUD' 

//  DLBL  WW14AUD, 'W14AUD' ,0,SD 

//  EXTENT  SYS021 ,WRK2&P , 1 ,0 ,20, 100, B=1 

//  DLBL  WX14AUD, 'X14AUD' ,0,SD 

//  EXTENT  SYS022.WRK2&P, 1,0,20,100, B=1 

//  EXEC  P14AUD 

P14AUD-CNTL 

/* 

//  DLBL  VM14AUD , ' W14AUD 1 

//  EXTENT  SYS021.WRK2&P, 1,0,20,100,8*1 

//  DLBL  WX14AUD, ' X14AUD 1 

//  EXTENT  SYS022,WRK2&P, 1,0,20, 100.B-1 

//  EXEC  ADASD 

/& 


NOTE:  Input  STANFINS  tape  must  be  the  "XU"  tape  created  In  the  STANFINS 
Monthly  Cycle. 


Figure  3.13-01 
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JOB  CONTROL  STATEMENT  (RETRIEVAL)  -  OS 


RUN  ID:  AUDM14 

RUN  NAME:  CABS  EXTRACT  STANFINS  SOR  DATA 

//AUDM14  JOB  (Accounting  Information) 

//AU DM1 401  EXEC  AUDH14S1 

//P14AUD01 . IEXUAVK  DD  DSN*AVK .MASTER . EXUAVK . G9999V99 
//P14AUD01 . IAXWAVK  DD  DSN=AVK . MASTER .AXWAVK . G9999V99 
//P14AUD01.SYSIN  DD  ** 

P14AUD-CNTL  (User  Control  Card  Option) 

/* 

// 


NOTE:  Input  files  EXUAVK  and  AXWAVK  must  be  on  the  "XU"  tape  created  by 
the  STANFINS  Monthly  Cycle.  If  the  Monthly  "XU"  tape  Is  the  current 
version  when  this  job  is  processed,  remove  the  override  cards  for 
IEXUAVK  and  IAXWAVK;  else  use  the  overrides  and  replace  "9999V99"  with 
the  generation  number  of  the  files  created  by  the  STANFINS  Monthly 
Cycle. 


Figure  3.13-01 
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1/  Input  STANFINS  files  are  on  the  "XU"  tape  created  by  the  STANFINS  Monthly  Cycle. 
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AUDM14 


RUN  MESSAGES  MID  RESPONSES 

For  uw  of  thl»  form,  —  TB  18-111;  th«  proponent  ogoncy  to  CSA. 
13.  RUN  TITLE 

_ STANFINS  EXTRACT  _ 

MESSAGE  DISPLAYED  fsi 


1.  DATE 


811201 


ACTION  REQUIRED 


CONSOLE  MESSAGES: 

Same  as  SYSOUT/SYSLST 


SYSOUT/SYSLST  MESSAGES: 


P14AUD  01  H  INVALID 
OR  NO  PGM  CTL  CARD 


A  valid  P14AUD-CNTL  card  must  be 
present.  Correct  or  insert  control 
card  and  restart  the  run. 


la  REMARKS 
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The  proponent  agency  of  this  manual  is  USACSC  Support  Group  Atlanta 
(SGA).  Users  are  invited  to  send  comments  and  suggested  improvements 
on  DA  Form  2028  (Recommended  Changes  to  Publications)  direct  to 
Cdr,  USACSC,  ATTN:  ACSC-SGA,  Bldg  906,  Fort  Gillem,  Forest  Park, 

GA  30050 


FOR  THE^eG»«MMlE.R: 

/o/  \  o\ 

is  OFFICIAL  < 

\\-0  \  f  If 

1L  JiJ 


Adjutant  General 


JOHN  F.  VAN  WERT,  JR 
Colonel,  GS 
Chief  of  Staff 
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JOB  CONTROL  STATEMENTS  TO  PRODUCE  DYNAM/T  TAPE  PULL  LISTS 


//  JOB  AUDPUL  PULL  LIST,  CABS  AUDT0A  CYC*AOC 

//  EXEC  TDYNLIST 

TITLE*CABS  PULL  LIST,  AUDT0A  AOC 
DN* ’ AOC . A0AAUD • , JOB=AUDT0A  AOC 
DN= ' AOC. A01AUD 1 , JOB=AUDT0A  AOC 
NOTE *2  SCRATCH  TAPES  FOR  AUDT0A  AOC 
/* 

/& 

//  JOB  AUDPUL  PULL  LIST,  CABS  AUDT0A  CYC-COB 

//  EXEC  TDYNLIST 

TITLE=CABS  PULL  LIST,  AUDT0A  COB 
DN* ' COB . A0AAUD ' , JOB=AUDT0A  COB 
DN= ' COB.A01AUD' , JOB-AUDT0A  COB 
NOTE *2  SCRATCH  TAPES  FOR  AUDT0A  COB 
/* 

/& 

//  JOB  AUDPUL  PULL  LIST,  CABS  AUDT0A  CYC-OBL 

ft  EXEC  TDYNLIST 

TITLE=CABS  PULL  LIST,  AUOT0A  OBL 
DN= ' OBL . A0AAUD 1 , JOB=AUDT0A  OBL 
DN= ' OBL . A01AUD • , JOB*AUDT0A  OBL 
N0TE=2  SCRATCH  TAPES  FOR  AUDT0A  OBL 
/* 

/& 

//  JOB  AUDPUL  PULL  LIST,  CABS  AUDT0A  CYC=SOR 

//  EXEC  TDYNLIST 

TITLE=CABS  PULL  LIST,  AUDT0A  SOR 
DN= ' SOR . A0AAUD 1 , JOB=AUDT0A  SOR 
DN*'SOR.A01AUD',JOB=AUDT0A  SOR 
N0TEa2  SCRATCH  TAPES  FOR  AUDT0A  SOR 
f* 

/& 


Attachment  1 
Al-1 
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JOB  CONTROL  STATEMENTS  TO  PRODUCE  DYNAM/T  TAPE  PULL  LISTS 


//  JOB  AUDPUL  PULL  LIST,  CABS  AUDT01  CYC=AOC 

//  EXEC  TDYNLIST 

TITLE=CABS  PULL  LIST,  AUDT01  AOC 
DN='AOC.A0AAUD',JOB=AUDT01  AOC 
DN= ' AOC .A01AUD ' , JOB=AUDT01  AOC 
DN= 1 AOC . B01AUD ' , JOB*AUDT01  AOC  OPTIONAL  INPUT 
NOTE *2  SCRATCH  TAPES  FOR  AUDT01  AOC 
/* 

/& 

//  JOB  AUDPUL  PULL  LIST,  CABS  AUDT01  CYC=COB 

//  EXEC  TDYNLIST 

TITLE=CABS  PULL  LIST,  AUDT01  COB 
DN= ' COB . A0AAUD ' , JOB=AUDT01  COB 
DN= 1  COB .A01AUD 1 , JOB=AUDT01  COB 
DN='COB.B01AUD',JOB=AUOT01  COB  OPTIONAL  INPUT 
NOTE *2  SCRATCH  TAPES  FOR  AUDT01  COB 
/* 

/& 

//  JOB  AUDPUL  PULL  LIST,  CABS  AUDT01  CYC=OBL 

//  EXEC  TDYNLIST 

TITLE=CABS  PULL  LIST,  AUDT01  OBL 

DN='OBL.A0AAUD',JOB=AUDT01  OBL 

DN* ' OBL . A01AUD ' , JOB=AUDT01  OBL 

DNS 1 OBL . B01AUD 1 , JOB=AUDT01  OBL  OPTIONAL  INPUT 

NOTE =2  SCRATCH  TAPES  FOR  AUDT01  OBL 

/* 

/& 

//  JOB  AUDPUL  PULL  LIST,  CABS  AUDT01  CYC-SOR 

//  EXEC  TDYNLIST 

TITLE=CABS  PULL  LIST,  AUDT01  SOR 
DN*'SOR.A0AAUD',JOB=AUDT01  SOR 
DNa ' SOR . A01AUD ' , JOB=AUDT01  SOR 
DN='SOR.B01AUD' , JOBSAUDT01  SOR  OPTIONAL  INPUT 
NOTE -2  SCRATCH  TAPES  FOR  AUDT01  SOR 
/* 

/& 


Attachment  1 


AOSM  18-C1D-AUD-IBM  OM 
1  DEC  81 


JOB  CONTROL  STATEMENTS  TO  PRODUCE  DYNAM/T  TAPE  PULL  LISTS 


//  JOB  AUDPUL  PULL  LIST,  CABS  AUDT02  CYC-AOC 

//  EXEC  TDYNLIST 

TITLE -CABS  PULL  LIST,  AUDT02  AOC 
DN='AOC.A01AUD',JOB=AUDT02  AOC 
DN- ' AOC . A0AAUD ' , JOB-AUDT02  AOC 
DN- ' AOC . B02AUD • , JOB-AUDT02  AOC 
DN= 1 AOC .A02AUD ' , JOB-AUDT02  AOC  OPTIONAL  INPUT 
NOTE *2  SCRATCH  TAPES  FOR  AUDT02  AOC 
/* 

/& 

//  JOB  AUDPUL  PULL  LIST,  CABS  AUDT02  CYC-COB 

//  EXEC  TDYNLIST 

TITLE-CABS  PULL  LIST,  AUDT02  C08 

DN- ' COB . A01AUD • , JOB-AUDT02  COB 

DN= ' COB . A0AAUD ' , JOB-AUDT02  COB 

DN- ' COB . B02AUD • , JOB=AUDT02  COB 

DN= ' COB . A02AUD 1 , JOB-AUDT02  COB  OPTIONAL  INPUT 

NOTE=2  SCRATCH  TAPES  FOR  AUDT02  COB 

/* 

/& 

//  JOB  AUDPUL  PULL  LIST,  CABS  AUDT02  CYC-OBL 

//  EXEC  TDYNLIST 

TITLE-CABS  PULL  LIST,  AUDT02  OBL 
DN= ' OBL . A01AUD • , JOB=AUDT02  OBL 
DN='OBL.A0AAUD',JOB»AUDT02  OBL 
DN= ' OBL . B02AUD ' , JOB=AUDT02  OBL 
DN* ' OBL . A02AUD ' , JOB=AUDT02  OBL  OPTIONAL  INPUT 
NOTE=2  SCRATCH  TAPES  FOR  AUOT02  OBL 
/* 

/& 

//  JOB  AUDPUL  PULL  LIST,  CABS  AUDT02  CYC*SOR 

//  EXEC  TDYNLIST 

TITLE-CABS  PULL  LIST,  AUDT02  SOR 
DN* 1 SOR . A01AUD 1 , JOB-AUDT02  SOR 
DN- ' SOR . A0AAUD • , JOB-AUDT02  SOR 
DN- 1 SOR . B02AUD ' , JOB-AUDT02  SOR 
DN- 1 SOR . A02AUD ' , JOB-AUDT02  SOR  OPTIONAL  INPUT 
NOTE-2  SCRATCH  TAPES  FOR  AUDT02  SOR 
/* 

/& 
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//  JOB  AUDPUL  PULL  LIST,  CABS  AUDT03  CYC*AOC 

//  EXEC  TDYNLIST 

TITLE*CABS  PULL  LIST,  AUDT03  AOC 
DN*'AOC.A0AAUD',JOB=AUDT03  AOC 
DN= ' AOC .B02AUD ' , JOB=AUDT03  AOC 
NOTE =2  SCRATCH  TAPES  FOR  AUDT03  AOC 
/* 

/& 

//  JOB  AUDPUL  PULL  LIST,  CABS  AUDT03  CYC*COB 

//  EXEC  TDYNLIST 

TITLE=CABS  PULL  LIST,  AUDT03  COB 
DN= ' COB . A0AAUD ' , JOB=AUDT03  COB 
DN3 ' COB . B02AUD ' , JOB=AUDT03  COB 
NOTE=2  SCRATCH  TAPES  FOR  AUDT03  COB 
/* 

/& 

//  JOB  AUDPUL  PULL  LIST,  CABS  AUDT03  CYC-OBL 

//  EXEC  TDYNLIST 

TITLE=CA8S  PULL  LIST,  AUOT03  OBL 
DN= 1 OBL . A0AAUD ' , JOB=AUDT03  OBL 
DN= ' OBL . B02AUD • , JOB=AUDT03  OBL 
NOTE =2  SCRATCH  TAPES  FOR  AUOT03  OBL 
/* 

/& 

//  JOB  AUDPUL  PULL  LIST,  CABS  AUDT03  CYC*SOR 

//  EXEC  TDYNLIST 

TITLE*CABS  PULL  LIST,  AUDT03  SOR 
DN='SOR.A0AAUD',JOB=AUDT03  SOR 
DN= ' SOR . B02AUD ' , JOB=AUDT03  SOR 
NOTE *2  SCRATCH  TAPES  FOR  AUDT03  SOR 
/* 

/& 


Attachment  1 


ADSM  18-C1D-AUD-IBM  ON 
1  DEC  81 


JOB  CONTROL  STATEMENTS  TO  PRODUCE  DYNAM/T  TAPE  PULL  LISTS 


//  JOB  AUDPUL  PULL  LIST,  CABS  AUDT04  CYC-AOC 

//  EXEC  TDYNLIST 

TITLE-CABS  PULL  LIST,  AUDT04  AOC 
DN-'AOC . A0AAUD ' , JOB-AUDT04  AOC 
DN-,AOC.B02AUD',JOB»AUDT04  AOC 
NOTE-2  SCRATCH  TAPES  FOR  AUDT04  AOC 
/* 

/fc 

//  JOB  AUDPUL  PULL  LIST,  CABS  AUDT04  CYC-COB 

//  EXEC  TDYNLIST 

TITLE-CABS  PULL  LIST,  AUDT04  COB 
DN- ' COB . A0AAUD 1 , JOB-AUOT04  COB 
DN* 1  COB . B02AUD ' , JOB-AUDT04  COB 
NOTE-2  SCRATCH  TAPES  FOR  AUDT04  COB 
/* 

/& 

//  JOB  AUDPUL  PULL  LIST,  CABS  AUDT04  CYC-OBL 

//  EXEC  TDYNLIST 

TITLE-CABS  PULL  LIST,  AUDT04  OBL  v“ 

DN- 1 OBL . A0AAUD 1 , JOB-AUDT04  OBL 
DN«'OBL.B02AUDI , JOB-AUDT04  OBL 
NOTE-2  SCRATCH  TAPES  FOR  AUDT04  OBL 
I* 

/«. 

//  JOB  AUDPUL  PULL  tIST,  CABS  AUDT04  CYC-SOR 

//  EXEC  TDYNLIST 

TITLE-CABS  PULL  LIST,  AUDT04  SOR 
DN- 1 SOR . A0AAUD 1 , JOB-AUDT04  SOR 
DN- 1 SOR.B02AUD 1 , JOB-AUDT04  SOR 
NOTE-2  SCRATCH  TAPES  FOR  AUDT04  SOR 
/* 

/A 
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//  JOB  AUDPUL  PULL  LIST,  CABS  AUDT05  CYC*AOC 

//  EXEC  TDYNLIST 

TITLE *CABS  PULL  LIST,  AUDT05  AOC 
DN* ' AOC . B02AUD ' , JOB=AUDT05  AOC 
NOTE *2  SCRATCH  TAPES  FOR  AUDT05  AOC 
/* 

/& 

//  JOB  AUDPUL  PULL  LIST,  CABS  AUDT05  CYC-COB 

//  EXEC  TDYNLIST 

TITLE=CABS  PULL  LIST,  AUDT05  COB 
DN* 1  COB . B02AUD 1 , JO6*AUDT05  COB 
NOTE=2  SCRATCH  TAPES  FOR  AUDT05  COB 
/* 

/& 

//  JOB  AUDPUL  PULL  LIST,  CABS  AUDT05  CYC=OBL 

//  EXEC  TDYNLIST 

TITLE=CABS  PULL  LIST,  AUDT05  OBL 
DN= • OBL . B02AUD ' , JOB*AUDT05  OBL 
NOTE =2  SCRATCH  TAPES  FOR  AUDT05  OBL 
/* 

/& 

//  JOB  AUDPUL  PULL  LIST,  CABS  AUDT05  CYC-SOR 

//  EXEC  TDYNLIST 

TITLE*CABS  PULL  LIST,  AUDT05  SOR 
DN* ' SOR . B02AUD ' , JOB=AUDT05  SOR 
NOTE *2  SCRATCH  TAPES  FOR  AUDT05  SOR 
I* 

/& 
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//  JOB  AUDPUL  PULL  LIST,  CABS  AUDT06  CYC-AOC 

//  EXEC  TDYNLIST 

TITLE-CABS  PULL  LIST,  AUDT06  AOC 
DN= ' AOC . B09AUD 1 , JOB-AUDT06  AOC 
NOTE -2  SCRATCH  TAPES  FOR  AUDT06  AOC 
/* 

/A 

//  JOB  AUDPUL  PULL  LIST,  CABS  AUDT06  CYC-COB 

//  EXEC  TDYNLIST 

TITLE -CABS  PULL  LIST,  AUDT06  COB 
DN= 1  COB . B09AUD 1 , JOB-AUDT06  COB 
NOTEa2  SCRATCH  TAPES  FOR  AUDT06  COB 
/* 

/& 

//  JOB  AUDPUL  PULL  LIST,  CABS  AUDT06  CYC«OBL 

//  EXEC  TDYNLIST 

TITLE =CABS  PULL  LIST,  AUDT06  OBL 
DN* ' OBL . B09AUD 1 , JO6»AUDT06  OBL 
NOTE *2  SCRATCH  TAPES  FOR  AUDT06  OBL 
/* 

/A 

//  JOB  AUDPUL  PULL  LIST,  CABS  AUDT06  CYC-SOR 

//  EXEC  TDYNLIST 

TITLE-CABS  PULL  LIST,  AUDT06  SOR 
DN- 1 SOR.B09AUD 1 , JOB-AUDT06  SOR 
NOTE-2  SCRATCH  TAPES  FOR  AUDT06  SOR 
/* 

/A 
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//  JOB  AUDPUL  PULL  LIST,  CABS  AUDM07  CYC=OBL 

//  EXEC  TDYNLIST 

TITLE=CABS  PULL  LIST,  AUDM07  OBL 
DN= ’ CM2ANC • , JOB=AUDM07  OBL 
DN='AH1ANC,,JOB=AUDM07  OBL 
N0TE=2  SCRATCH  TAPES  FOR  AUOM07  OBL 
/* 

/& 


//  JOB  AUDPUL  PULL  LIST,  CABS  AUDM14  CYC«SOR 

//  EXEC  TDYNLIST 

TITLE*CABS  PULL  LIST,  AUDM14  SOR 
DN= ' EXUAVK ' , J0B=AUDM14  SOR 
DN=  * AXWAVK ' , J0B=AUDM14  SOR 
NOTE=l  SCRATCH  TAPE  FOR  AUDM14  SOR 
/* 

/& 


//  JOB  AUDPUL  PULL  LIST,  CABS  AUDM15  CYC-SOR 

//  EXEC  TDYNLIST 

TITLE =CABS  PULL  LIST,  AUDM15  SOR 
DN='SOR.A0AAUD' ,JOB=AUDM15  SOR 
DN='CM2ANC' ,JOB=AUDM15  SOR 
NOTE=l  SCRATCH  TAPE  FOR  AUDM15  SOR 
/* 

/& 


//  JOB  AUDPUL  PULL  LIST,  CABS  AUDM20  CYC=SOR 

//  EXEC  TDYNLIST 

TITLE*CABS  PULL  LIST,  AUDM20  SOR 
DN= 1 SOR. A0AAUD ' , JOB*AUDM20  SOR 
DN- ' SOR . A01AUD ' , JOB=AUDM20  SOR 
DN»'SOR.A07AUD',JOB=AUDM20  SOR 
NOTE *2  SCRATCH  TAPES  FOR  AUDM20  SOR 
/* 

/& 
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